使用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中的文本框中單擊消失的文本

回答

相關問題