PPT的VBA中怎样在一张幻灯片中引用另一张幻灯片中的文本框中的内容?

如题所述

下面代码是把第二张幻灯片的标题设置为第一张幻灯片的文件框的内容
ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Text
下面代码是显示第一张幻灯片中所有文本框的内容,你看着哪个对你有用,用哪个吧
Private Sub CommandButton1_Click()
Dim i As Integer
With ActivePresentation.Slides(1)
For i = 1 To .Shapes.Count
If .Shapes(i).Type = msoTextBox Then
MsgBox .Shapes(i).TextFrame.TextRange.Text
End If
Next
End With
End Sub追问

谢了,其实我就是不太知道这些东西怎样引用

那个对于引用哪个单元格,具体的怎样说明呢?谢谢

温馨提示:答案为网友推荐,仅供参考
相似回答