Powerpoint VBAでわからないこと

Powerpoint VBA インデックスがずれるイテレータ

2016-12-31

無限ループとボタンでつきあう

プログラムを作るときに絶対避けるべきこととして，無限ループがあるとわたしは認識していました。よくやらかして，強制終了の憂き目にあうこともありますが，パワーポイントで遊んでいる中ではそれなりに無限ループと付き合ってます。標準モジュール Option…

2016-12-31

図形を描くために③　アニメーションさせるには

Powerpoint VBA

グラフが徐々に伸びるアニメーションをさせる方法もいろいろ試行錯誤しました。ShapeオブジェクトのShapeNodeを追加・削除していくとか，各ポイントの座標をずらしていくとか。 Sub NodesTest() Dim shpNodes As ShapeNodes Set shpNodes = ActiveWindow.Sel…

2016-12-31

図形を描くために②　三角関数のグラフを描いてみる。

Powerpoint VBA

オートシェイプを関数で描かせるには，注意点がいくらかあるので，自分のためにもメモ。 Option Explicit Sub test() Dim TSlide As Slide: Set TSlide = ActivePresentation.Slides(1) Dim i As Long, y As Long Dim StartX As Long: StartX = 50 Dim Start…

2016-12-30

図形を描くために① 画面のサイズとかオブジェクトの位置決めとか

Powerpoint VBA

年末休みに今まで知り得たことを書き出そうと必死です。すぐ忘れますからね・・。初心もすぐ忘れるので，最初役に立ったことを忘れないうちに。。関数で図を描くためには，座標を把握する必要があります。正しい方法ではないんでしょうけど，忘れてもすぐや…

2016-12-30

一応できた波動のGIFアニメ

Powerpoint VBA

波動はなかなかイメージできません。自分がイメージできないものは，相手に伝えれませんからけっこう必死。そこで作ってみてたのがこれ。GIFにしてみました。最後カクカクしてるのは，コマ送りボタンによるものです。こんなふうに，関数で書けるのはけっこ…

2016-12-30

コードのブログへの書き方練習

雑記

書いたコードをvbaのeditorに戻すと文字化けしてたので，ちょっと練習。せっかくなのでコード実行中のキー操作を受け入れさせる方法とスリープAPIで。 Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long Declare Sub Sleep…