VBA-相当于在文本框或形状内按 "tab"?
VBA-equivalent to pressing "tab" inside a textbox or shape?
我有一个从 Excel 调用的 PowerPoint 演示文稿,我想更改其中一种形状的文本。这是一个 table 的内容,当我手动完成时,我可以在左边写文本,按一次 Tab 键,光标跳到最右边我可以写 "Page" 的地方。我如何使用 VBA,"tab" 部分执行此操作?我知道我可以写成这样的形状:
myPresentation.Slides(2).Shapes("shp2").TextFrame.TextRange.Text = "Development of X in Year 2019"
我的解决方法是替换我想更改的部分,即年份:
myPresentation.Slides(2).Shapes("shp1").TextFrame.TextRange.Text = Replace(myPresentation.Slides(2).Shapes("shp1").TextFrame.TextRange.Text, "2019", yearVariable)
但如果有人手动删除或更改年份,它就不再起作用了,所以我不想使用它。
你的意思是只使用 vbTab
吗?
myPresentation.Slides(2).Shapes("shp2").TextFrame.TextRange.Text = "Development of X in Year" & vbTab & "2019"
我有一个从 Excel 调用的 PowerPoint 演示文稿,我想更改其中一种形状的文本。这是一个 table 的内容,当我手动完成时,我可以在左边写文本,按一次 Tab 键,光标跳到最右边我可以写 "Page" 的地方。我如何使用 VBA,"tab" 部分执行此操作?我知道我可以写成这样的形状:
myPresentation.Slides(2).Shapes("shp2").TextFrame.TextRange.Text = "Development of X in Year 2019"
我的解决方法是替换我想更改的部分,即年份:
myPresentation.Slides(2).Shapes("shp1").TextFrame.TextRange.Text = Replace(myPresentation.Slides(2).Shapes("shp1").TextFrame.TextRange.Text, "2019", yearVariable)
但如果有人手动删除或更改年份,它就不再起作用了,所以我不想使用它。
你的意思是只使用 vbTab
吗?
myPresentation.Slides(2).Shapes("shp2").TextFrame.TextRange.Text = "Development of X in Year" & vbTab & "2019"