更改滑動範圍的形狀可見特性（VBA宏PowerPoint）

Question

我測試了以下代碼，以更改陣列中每張幻燈片中所有形狀的可見性（「a」）：

Private Sub CommandButton1_Click() 
Dim osldR As SlideRange 
Set osldR = ActivePresentation.slides.Range(Array(2, 3, 4)) 
osldR.Shapes("a").Visible = msoFalse 
End Sub 

但我得到this error。

Answer 1

嘗試...

Private Sub CommandButton1_Click() 
    Dim osldR As SlideRange 
    Dim oSld As Slide 
    Dim oShp As Shape 
    Set osldR = ActivePresentation.Slides.Range(Array(2, 3, 4)) 
    For Each oSld In osldR 
     For Each oShp In oSld.Shapes 
      If oShp.Name = "a" Then 
       oShp.Visible = msoFalse 
       Exit For 'if there will only be one shape named "a" on a slide 
      End If 
     Next oShp 
    Next oSld 
End Sub 

希望這有助於！