我需要做的是找到一个向上箭头字符并用向上箭头形状替换它并为向下的arros做同样的事情 . 我是VBA的新手,但对于我希望宏如何工作有一个想法 . 它应该遍历powerpoint上的所有幻灯片 .
1)找到箭头字符的位置? (使用INSTR命令?和CHR代码命令 . 不确定INSTR是否在ppt中工作或者是否是适当的代码)
2)使用从上一行代码返回的位置添加形状 . 我的代码在下面,已经将此形状添加到我的规格中 .
Dim i As Integer
Dim shp As Shape
Dim sld As Slide
Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(36, 10, 10, 5.0399, 8.6399)
shp.Fill.ForeColor.RGB = RGB(89, 0, 0)
shp.Fill.BackColor.RGB = RGB(89, 0, 0)
shp.Line.ForeColor.RGB = RGB(89, 0, 0)
3)查找并删除所有字符箭头,以便形状是唯一留下的形状 .
我在PPT中一直在努力通过VBA,并感谢你能给我的任何帮助 .
2 回答
你走在正确的轨道上 . 假设我有一个这样的形状,它有字母和特殊字符,由十六进制值
&H25B2
表示 .首先,您需要确定角色的 Value . 有很多地方可以找到这些参考资料 .
然后,如何在你的代码中使用,这里是一个找到形状的例子,并用你的箭头覆盖它,根据@ SteveRindsberg的建议修改,在下面:)
要为David已经完成的工作添加一些内容,一旦获得对文本范围(几乎任何文本块)的引用,您就可以获得文本的边界框并使用它来定位您的形状 . 这是一个开始: