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

下面代码是把第二张幻灯片的标题设置为第一张幻灯片的文件框的内容

ActivePresentationSlides(2)Shapes(1)TextFrameTextRangeText = ActivePresentationSlides(1)Shapes(3)TextFrameTextRangeText

下面代码是显示第一张幻灯片中所有文本框的内容，你看着哪个对你有用，用哪个吧

Private Sub CommandButton1_Click()

Dim i As Integer

With ActivePresentationSlides(1)

For i = 1 To ShapesCount

If Shapes(i)Type = msoTextBox Then

MsgBox Shapes(i)TextFrameTextRangeText

End If

Next

End With

End Sub

取不到文件名，我感觉文件名已经被转换为ICON了，我下面代码只能显示名字和类型：

Sub 宏1()

    Dim s As Shape

    For Each s In ActiveSheetShapes

        If sType = msoEmbeddedOLEObject Then MsgBox sName & Chr(10) & sOLEFormatprogID

    Next s

End Sub

是否显示为图标的两个对象显示都是一样的的结果：

VBA全称是Visual

Basic

for

Application，其中Visual

Basic（VB）是一种编程语言，Application就是指Word，Excel，Access，Powerpoint等应用软件（在这些软件中叫“宏”）。理论上，在PPT中的任何手动 *** 作都可以通过VBA来实现，而且一些复杂的（尤其是重复的）的 *** 作用VBA很容易实现。

以上就是关于PPT的VBA中怎样在一张幻灯片中引用另一张幻灯片中的文本框中的内容全部的内容，包括:PPT的VBA中怎样在一张幻灯片中引用另一张幻灯片中的文本框中的内容、如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。、什么是PPT中的VBA怎么才能打开VBA等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！