2017-07-04から1日間の記事一覧

2017-07-04

現在のページのオブジェクトの名前を全て出力する

Sub 現在のスライドのオブジェクトのNameを出力する() Dim page As Slide Set page = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber) Dim shp As Object For Each shp In page.Shapes MsgBox (shp.Name) Next shp End Sub 参考 …

2017-07-04

Powerpoint VBAはじめました

始めます。環境はPowerpoint 2016。何はともあれHello world。表示→マクロ→適当に名前入力→作成でマクロエディタが開きます。 Sub Hello() MsgBox ("Hello world") End Sub これで実行ボタンを押すとHello worldと書かれたメッセージボックスが開きます。…