PowerPoint 2010 - VBA 替换数字

Question

我的部门使用一张幻灯片来概述项目文档可交付成果的进展情况。它以图形方式显示，因此不能使用简单的 table 视图或类似视图。幻灯片中提到的每个文档交付物都可以有 3 个不同的图例（图形），一个正方形、三角形和箭头。这些是根据可交付成果的利益相关者责任进行颜色编码的。现在我们正在项目中手动更改每一个

我要找的是：是否有一个 VBA 代码可以很容易地根据项目状态替换这些数字？我想每个 Project 可交付成果都需要在幻灯片上标记一个位置，然后可以使用用户表单 select 应该分配哪种类型的图形？

非常感谢任何可以帮助我或指出可能对我有帮助的方向的人！

谢谢彼得

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

PowerPoint 2010 - VBA 替换数字

PowerPoint 2010 - VBA to replace figures

powerpoint

vba