VBA：复制Excel单元格并粘贴为Powerpoint中的图像

问：

我是 VBA 的新手，我正在尝试通过 Powerpoint 模板创建自动报告。 我编写了以下代码：

Sub Autoreport()
    Dim shtSheet1 As Worksheet

    Dim str1 As String
    Dim strA2 As String
    Dim strF3 As String

    Dim ID As Long

    Dim objPPT As Object
    Dim objPres As Object
    Dim objSld As Object
    Dim objShp As Object

    Set shtSheet1 = Worksheets("PRUEBATD")
        
    Set objPPT = CreateObject("Powerpoint.Application")
    objPPT.Visible = True
    
    Set objPres = objPPT.Presentations.Open(ThisWorkbook.Path & "\report.pptx")

    objPres.SaveAs ThisWorkbook.Path & "\Autoreport.pptx"
   
    ID = 3

    Do While shtSheet1.Cells(ID, 1) <> ""
        
        str1 = shtSheet1.Cells(ID, 1)
        strA2 = shtSheet1.Cells(ID, 2)
        strF3 = shtSheet1.Cells(ID, 3)

        Set objSld = objPres.slides(1).Duplicate
        For Each objShp In objSld.Shapes
            If objShp.HasTextFrame Then
                If objShp.TextFrame.HasText Then

                    objShp.TextFrame.TextRange.Replace "<1>", str1
                    objShp.TextFrame.TextRange.Replace "<A2>", strA2
                    objShp.TextFrame.TextRange.Replace "<F3>", strF3

                End If
            End If
        Next
        ID = ID + 1
    Loop
    objPres.slides(1).Delete
    objPres.Save
    objPres.Close

代码有效，但我只设法将单元格数据从 excel 获取到 powerpoint。 我正在处理的 excel 文件有 137 个变量，我需要制作 300 份报告。 我需要将单个excel单元格（不是范围）粘贴为PowerPoint模板中的图片

这是我的PPT模板，突出显示的文本框是我需要包含的一些变量：

这是我从实际代码中得到的一个例子：

这是我需要获取PPT的Excel数据的示例，我需要它作为图片来保留条件格式图：