PowerPoint 2010-VBA取代圖形

Question

我的部門使用一張幻燈片，以概述有關項目文檔可交付成果的進度。 它以圖形方式顯示，因此無法使用簡單的表格視圖或類似視圖。 幻燈片中提到的每個文檔可交付成果可以具有3個不同的圖例（圖），正方形，三角形和箭頭。 這些顏色根據交付物的利益相關者責任進行了顏色編碼。 現在，我們正在項目中手動更改每個

我在尋找什么：是否有一個VBA代碼可以根據項目狀態輕松替換這些數字？ 我想象每個Project可交付成果都需要在幻燈片上標出一個位置，然后可以使用一個用戶表單來選擇應該分配哪種圖形？

非常感謝能幫助我或為我指明可能幫助我的人！

謝謝彼得

Answer 1

這是粗略概述中的一種方法...

代替單個形狀，使用正方形，三角形和箭頭分組。 用戶選擇要使用的組，然后啟動對話框，在其中選擇該項目的項目狀態。 您的對話框為狀態分配一個從1到3的值，然后按如下所示調用SetVisibility：

Sub MakeItSo()
    Call SetVisibility(2)
End Sub

SetVisibility首先使組中的所有形狀不可見，然后將適當的形狀設置為可見：

Sub SetVisibility(lStatus As Long)
    Dim x As Long
    With ActiveWindow.Selection.ShapeRange(1)
        For x = 1 To .GroupItems.Count
            .GroupItems(x).Visible = False
        Next
        .GroupItems(lStatus).Visible = True
    End With
End Sub