首页 文章

使用vba在powerpoint中的文本框中单击鼠标时消失的文本

提问于
浏览 次
0

我在PowerPoint 2010幻灯片中遇到自定义文本框的问题 . 我想在文本框中单击鼠标后输入一些文本，使文本框中最初存在的文本（例如“单击以输入文本”）消失 . 如果通过VBA中的事件可以实现这一点，我想知道要捕获哪个事件（与文本框关联）以及如何使用VBA执行此操作？

另外，更改height参数对PowerPoint 2010没有任何影响 .

这是我定义文本框的代码：

Dim sld As Slide

设置pShape = sld.Shapes.AddTextbox（msoTextOrientationHorizontal，左：= 50，上：= 50，宽度：= 500，高度：= 300）

pShape.TextFrame.TextRange = "Click to enter text"
pShape.TextFrame.TextRange.Font.Size = 14
pShape.Line.Visible = True
pShape.Line.ForeColor.RGB = RGB(0, 0, 0)
pShape.Line.DashStyle = msoLineDash

Plz帮我解决这个问题..提前致谢!!!

vba powerpoint powerpoint-vba

1 回答

  • 0

    高度未被采用，因为默认值是调整大小以适合可用文本 .

    使用形状而不是文本框或重置defaut

    设置pShape = sld.Shapes.AddTextbox（msoTextOrientationHorizontal，Left：= 50，Top：= 50，Width：= 500，Height：= 300）pShape.TextFrame.AutoSize = ppAutoSizeNone pShape.Height = 300

    使文本在点击时消失是可能的但很困难 . 您可以使用WindowSelectionChange事件，但如果您没有编写插件，则很难设置 . 您需要编写WithEvents类模块并初始化实例 . 相当先进！

    回复于

相关问题