使用vba在PowerPoint中的文本框中单击消失的文本

我面临PowerPoint 2010幻灯片中自定义文本框的问题。我希望在文本框中单击鼠标以输入一些文本时，使文本框中最初出现的文本（如“点击输入文本”）消失。如果这可以通过VBA中的事件来实现，那么我想知道哪些事件（与文本框相关）要捕获以及如何使用VBA执行它？使用vba在PowerPoint中的文本框中单击消失的文本

另外改变高度参数不具有在PowerPoint 2010

这里任何效果是我的代码定义文本框：

昏暗SLD作为幻灯片

集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帮助我走出这个.. 在此先感谢！

来源

2014-03-12 gkb

未采用高度，因为默认设置是调整大小以适合可用文本。

既可以使用一个形状不是一个文本框或重置defaut

集pShape = sld.Shapes.AddTextbox（msoTextOrientationHorizontal，左：= 50，顶面：= 50，宽度：= 500，高度：= 300） pShape.TextFrame.AutoSize = ppAutoSizeNone pShape.Height = 300

制作上单击文本消失是可能的，但困难。您可以使用WindowSelectionChange事件，但如果您不编写外接程序，则设置起来非常困难。您需要编写一个WithEvents类模块并初始化一个实例。相当先进！

来源

2014-03-13 10:11:38

你的建议工作正常。但是如果我同时需要这两个功能，那么它应该有一个预定义的高度，并且文本框仍然应该按照需求增长或自动调整大小。我也希望用户能够通过双击它在文本框中写入内容。但现在我看到的是，当我将鼠标悬停在文本框上时，光标不会出现 – gkb

文本使用WindowSelectionChange事件消失，但这种情况只发生在我点击文本框上的任何地方，但不是当我单击文本时发生。 – gkb

使用vba在PowerPoint中的文本框中单击消失的文本

回答

相关问题