Powerpointに貼った画像のサイズを変更したくて、下記のマクロを書いて実行したら、
4行目の
With ppApp.Slides(1).Shapes(1)
で修飾子エラーになります。
どこをどう直せばよいでしょうか？
ｰｰｰ＜start of code＞ｰｰｰ
Sub グラフサイズ調整()
Dim ppApp As Long
For Each Slide In ActivePresentation.Slides
With ppApp.Slides(1).Shapes(1)
.Top = 1 / 0.03527778
.Left = 1 / 0.03527778
.LockAspectRatio = True
.Width = 5 / 0.03527778
End With
Each
Set ppApp = Nothing
End Sub
ｰｰ＜end of code＞ｰｰｰ
