[發問] 求助 當點擊物件時, 執行巨集的問題

ssthree

大家好，在下有個PPT執行上的問題，希望前輩能幫手一下...
問題是在創造slide時(全部slide數量約莫50張)，將指定圖片分別放置於指定位置
另外 slide的母片有製作了數個按鈕
這些按鈕的點擊功能(ppMouseClick)被賦予了指向某個巨集(簡稱：A)...
而這個巨集(A)任務是將指定的圖片圖層位置置頂 (BringToFront)

個別執行巨集(A)是可執行的，但放到主程式跑後卻失敗，不知問題在哪？
巨集(A)細節如下，希望前輩能幫手一下，先跪謝了...

1. Sub SG1B2F() ' Select the Group-1 and Bring To Front
   
2.     With ActivePresentation.Slides(ActiveWindow.selection.SlideRange.SlideNumber).Shapes.Range(Array("Picture 4","Picture 5","Picture 7"))
   
3.     .ZOrder msoBringToFront
   
4.     End With
   
5. Eng Sub

複製代碼