ppt 如何用vba統一設置圖片大小 位置 全選圖片 全部圖片

Sub test()
'獲取所有ppt頁面
For Each currentSlide In ActivePresentation.Slides

 

'每個頁面加一個文本框

Set Sh = currentSlide.Shapes.AddLabel(msoTextOrientationHorizontal, 80, 30, 150, 100)

Sh.TextFrame.TextRange.Text = "如圖所示："
Sh.TextFrame.TextRange.Font.Color = RGB(226, 17, 0)
Sh.TextFrame.TextRange.Font.Size = 24

 '循環每個頁面
    For Each shp In currentSlide.Shapes
      'type = 13是圖片  17是文本框  
      If shp.Type = 13 Then
       shp.Top = 100 '設置top位置
       shp.Left = 270  '設置left位置
        shp.Height = 400 '設置圖片高度位置
        'shp.Width = 7
        End If
    Next shp

Next currentSlide
End Sub