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

时间:2014-03-12 09:57:11

标签: vba powerpoint powerpoint-vba

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

同样更改height参数对PowerPoint 2010没有任何影响。

这是我的代码,用于定义文本框:

Dim sld As Slide

设置pShape = sld.Shapes.AddTextbox(msoTextOrientationHorizo​​ntal,Left:= 50,Top:= 50,width:= 500,Height:= 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帮我解决这个问题.. 在此先感谢!!!

1 个答案:

答案 0 :(得分:0)

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

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

设置pShape = sld.Shapes.AddTextbox(msoTextOrientationHorizo​​ntal,Left:= 50,Top:= 50,Width:= 500,Height:= 300) pShape.TextFrame.AutoSize = ppAutoSizeNone pShape.Height = 300

点击文字可能会消失,但很难。您可以使用WindowSelectionChange事件,但如果您没有编写插件,则很难设置。您需要编写WithEvents类模块并初始化实例。相当先进!