PowerPoint 2010 - VBA将取代图形
PowerPoint 2010 - VBA将取代图形
提问于 2017-02-21 01:05:39
我有一张幻灯片，我们在我的部门使用它来提供关于项目文档可交付成果的进度概述。它是以图形方式显示的，因此不能使用简单的表格视图或类似的视图。幻灯片中提到的每个文档交付内容可以有3个不同的图例(图)，即正方形、三角形和箭头。这些是根据可交付项目的涉众责任进行颜色编码的。现在，我们正在项目过程中手动更改其中的每一个
我正在寻找:有没有一个VBA代码，可以很容易地用来取代这些数字根据项目的状态？我想每个项目可交付成果都需要在幻灯片上标记一个位置，然后可以使用一个用户表单来选择应该分配哪种类型的图形？
任何人谁能帮助我或为我指明一个方向，可能会帮助我非常感谢！
谢谢你，彼得
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-02-22 00:44:56
这里有一种粗略的方法。
使用正方形、三角形和箭头组合而不是单独的形状。用户选择他们想要使用的组，然后启动您的对话框，他们在其中选择该项目的项目状态。您的对话框将为状态分配一个从1到3的值，然后调用SetVisibility，如下所示：
Sub MakeItSo()
Call SetVisibility(2)
End SubSetVisibility首先使组中的所有形状不可见，然后将相应的形状设置为可见：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42350412
复制相关文章
相似问题
腾讯云开发者
