powerpoint vba texteffect 调整句柄答案

【问题标题】：powerpoint vba texteffect adjustments handlepowerpoint vba texteffect 调整句柄
【发布时间】：2013-07-05 00:18:28
【问题描述】：

我不知道如何在 powerpoint 2010 vba 中操作调整手柄（下面箭头指向的粉红色菱形）。 myshape.adjustments.count 返回 0，因此任何将 myshape.Adjustments.Item(1) 设置为值的尝试都会返回错误。我使用文本框形状手动创建了文本，添加了斜角，然后添加了文本效果、变换、圆形。手柄可让您更改文本的弧线大小和宽度。这个句柄可以通过 vba 获得吗？

【问题讨论】：

我什至尝试在 Excel 中执行此操作，以便我可以尝试使用宏记录器。宏记录器也无法识别此操作。不幸的是，我认为您将无法在 VBA 中执行此操作。

标签： vba powerpoint

【解决方案1】：

查看对象模型，TextEffect 没有可通过 VBA 获得的调整句柄。这看起来很奇怪，因为这似乎是一个调整句柄。也许这是一个错误或疏忽，无论如何，这是一个问题。

http://msdn.microsoft.com/en-us/library/office/ff193987.aspx

您也许可以使用 Shape 对象的这些属性来获得所需的结果：

shp.TextEffect.Parent.Rotation

shp.TextEffect.Parent.Width

.Rotation 属性采用 0 到 180 之间的 double 类型值，0 表示不旋转，180 表示倒置。

.Width 属性采用 double 类型的值，我认为任何值都可以，只需设置形状的宽度，因此，根据您想要实现的目标将其变大或变小。

【讨论】：

谢谢大卫，但我正在寻找的效果是当手柄向左或向右移动时，它会改变文本的宽度 - 就像眼睛的虹膜收缩和扩大一样。
我可以手动复制该行为...今晚我可以尝试多玩一点。
嗯，我完全被难住了。和你一样，我当然希望它出现在 Adjustments 集合中，但我也看到 Adjustments.Count 是 0。我尝试将其创建为艺术字而不是文本框，但结果相同。您是否尝试在 MSDN 上发布此内容？
我没有。但我现在正在查看他们回答的问题，看看是否有任何发现。
我注意到调整手柄通常是黄色的。我不确定这个粉色手柄是什么，但查看TextEffect 甚至父Shape 的可用属性/方法，似乎没有任何方法可以做到这一点。祝你好运，如果你找到解决方案，请在此处发布！