PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : PowerPoint 2016)
Powerpointに貼った画像のサイズを変更したい
投稿日時: 20/07/22 06:38:43
投稿者: gorby

 
 
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>ーーー

トピックに返信