我只想从形状中抓取文本并将其显示在其他位置（Textbox，MsgBox ...）
我知道这不正确，但希望你能从中掌握这个概念。
msgbox ("Do you want to overwrite " & slide1.slot1.value &, 36, "?")
slot1 = shapename
有什么想法吗？
答案 0 :(得分：5)
假设您正在寻找当前活动演示文稿的幻灯片1中名为Slot1的形状的文本：
Msgbox ActivePresentation.Slides(1).Shapes("Slot1").TextFrame.TextRange.Text