2016-12-31から1日間の記事一覧
Powerpoint VBA インデックスがずれる イテレータ
プログラムを作るときに絶対避けるべきこととして,無限ループがあるとわたしは認識していました。よくやらかして,強制終了の憂き目にあうこともありますが,パワーポイントで遊んでいる中ではそれなりに無限ループと付き合ってます。標準モジュール Option…
グラフが徐々に伸びるアニメーションをさせる方法もいろいろ試行錯誤しました。ShapeオブジェクトのShapeNodeを追加・削除していくとか,各ポイントの座標をずらしていくとか。 Sub NodesTest() Dim shpNodes As ShapeNodes Set shpNodes = ActiveWindow.Sel…
オートシェイプを関数で描かせるには,注意点がいくらかあるので,自分のためにもメモ。 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…