我在PowerPoint 2010幻灯片中遇到自定义文本框的问题。我想在文本框中单击鼠标后输入一些文本,使文本框中最初存在的文本(例如“单击以输入文本”)消失。如果通过VBA中的事件可以实现这一点,我想知道要捕获哪个事件(与文本框关联)以及如何使用VBA执行此操作?
同样更改height参数对PowerPoint 2010没有任何影响。
这是我的代码,用于定义文本框:
Dim sld As Slide
设置pShape = sld.Shapes.AddTextbox(msoTextOrientationHorizontal,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帮我解决这个问题.. 在此先感谢!!!
答案 0 :(得分:0)
高度未被采用,因为默认值是调整大小以适合可用文本。
使用形状而不是文本框或重置defaut
设置pShape = sld.Shapes.AddTextbox(msoTextOrientationHorizontal,Left:= 50,Top:= 50,Width:= 500,Height:= 300) pShape.TextFrame.AutoSize = ppAutoSizeNone pShape.Height = 300
点击文字可能会消失,但很难。您可以使用WindowSelectionChange事件,但如果您没有编写插件,则很难设置。您需要编写WithEvents类模块并初始化实例。相当先进!