Скопировать текст из ячейки Excel в текстовое поле PPT

Question

Я должен скопировать текст из ячейки в Excel в текстовое поле в PPT, используя Excel-VBA. У меня есть следующий код:

 ActivePresentation.Shapes(tb).TextFrame.Characters.Text = ActiveSheet.Range("C41").Value

Но этот код выдает ошибку "метод или бот-элемент данных найден" для Shapes. Как правильно это сделать?

заранее спасибо

Answer 1

Вы получаете ошибку, потому что вы не указали, где находится форма. Я имею в виду, какой слайд???

Смотрите этот пример. (пробовал и тестировал из Excel)

Изменить в зависимости от обстоятельств.

Код:

Option Explicit

Sub Sammple()
    Dim oPPApp As Object, oPPPrsn As Object, oPPSlide As Object
    Dim oPPShape As Object
    Dim FlName As String

    '~~> Change this to the relevant file
    FlName = "C:\MyFile.PPTX"

    '~~> Establish an PowerPoint application object
    On Error Resume Next
    Set oPPApp = GetObject(, "PowerPoint.Application")

    If Err.Number <> 0 Then
        Set oPPApp = CreateObject("PowerPoint.Application")
    End If
    Err.Clear
    On Error GoTo 0

    oPPApp.Visible = True

    '~~> Open the relevant powerpoint file
    Set oPPPrsn = oPPApp.Presentations.Open(FlName)
    '~~> Change this to the relevant slide which has the shape
    Set oPPSlide = oPPPrsn.Slides(1)
    '~~> Change this to the relevant shape
    Set oPPShape = oPPSlide.Shapes(1)

    '~~> Write to the shape
    oPPShape.TextFrame.TextRange.Text = _
    ThisWorkbook.Sheets("Sheet1").Range("C41").Value

    '
    '~~> Rest of the code
    '
End Sub