我測試了以下代碼,以更改陣列中每張幻燈片中所有形狀的可見性(「a」): Private Sub CommandButton1_Click()
Dim osldR As SlideRange
Set osldR = ActivePresentation.slides.Range(Array(2, 3, 4))
osldR.Shapes("a").Visible = msoFalse
End
我在紙張1和紙張2上工作,並且在兩張紙中都有包含代碼的形狀。表單1中的形狀ID爲「RUN 1」,表單2中爲「EQ-1」。我已經有一個代碼可以識別我在sheet1/sheet2上點擊過的形狀ID。但是代碼調試的解釋是「找不到具有指定名稱的項目」。謝謝。請幫助:) 此代碼必須位於板材2 sub x()
'the first trial
If Sheet1.Shapes(Application.C