Question

我很难将早期绑定代码转换为后期绑定。我已经尝试了几次，但它没有正常工作。说到早期绑定，它运作良好。这是我的代码，我想请你告诉我它应该是什么样的，以及我必须在哪些地方做出改变以及为什么。

Sub PrezentacjaPP()

    Dim PowerPointA As PowerPoint.Application 'aplikacja PowerPoint
    Dim PrezentacjaPP As PowerPoint.Presentation 'prezentacja PowerPoint
    Dim NazwaPP As String 'nazwa pliku z szablonem prezentacji
    Dim SlajdPP As PowerPoint.Slide 'slajd prezentacji PowerPoint
    Dim WykresPP As PowerPoint.Shape 'wykres w formacie obrazu
    Dim Lista As String 'lista marek
    Dim Tekst As String 'tekst z info o marce i statystykami
    Dim i As Long 'numer marki
    Dim Wiersz As Long 'numer pierwszego wiersza dla danej marki

    Application.ScreenUpdating = False 'Wyłącz odświeżanie ekranu


        '1.Usunięcie starych prezentacji
        NazwaPP = Dir(ThisWorkbook.Path & "\" & "Prezentacja_*.pptx")
        If NazwaPP <> "" Then
            If MsgBox("Czy usunąć istniejące pliki z prezentacjami PowerPoint?", _
                vbYesNo + vbInformation) = vbYes Then
                Do While NazwaPP <> ""
                    Kill ThisWorkbook.Path & "\" & NazwaPP
                    NazwaPP = Dir()
                Loop
            Else
                MsgBox "Zmień nazwę istniejących prezentacji i ponownie uruchom procedurę."
                CzyZakonczyc = True
                Exit Sub
            End If
        End If

        '2. Wczytanie zmiennych
        ChDrive Left(ThisWorkbook.Path, 1) 'domyślny dysk
        ChDir ThisWorkbook.Path 'domyślny katalog
        NazwaPP = Application.GetOpenFilename(FileFilter:="Prezentacje programu PowerPoint (*.pptx), *.pptx", Title:="Zaznacz plik z szablonem prezentacji PowerPoint")
        If NazwaPP = "False" Then
            CzyZakonczyc = True
            Exit Sub
        End If

        '3. Wczytanie i otwarcie szablonu prezentacji PowerPoint
        Set PowerPointA = New PowerPoint.Application
        Set PrezentacjaPP = PowerPointA.Presentations.Open(NazwaPP) '<-- tylko w celach poglądowych podczas testowania makra

        '4. Stworzenie prezentacji
        With PrezentacjaPP

            '4.1. Uzupełnienie slajdów wstępnych
            .Slides(1).Shapes(1).TextFrame.TextRange = Cells(NrWiersza, "B").Value 'Slajd nr 1
            .Slides(2).Shapes(1).TextFrame.TextRange = "Lista marek" 'Slajd nr 2
            For i = 1 To Cells(Rows.Count, 18).End(xlUp).Row - 1
               Lista = Lista & Cells(i + 1, "R") & vbNewLine
            Next i
            .Slides(2).Shapes(2).TextFrame.TextRange = Lista

                '4.1.1. Stworzenie slajdów z aktywami
                 For i = 1 To Cells(Rows.Count, 18).End(xlUp).Row - 1
                     'Dodanie nowego slajdu (typ ppLayoutText: tytuł oraz pole tekstowe)
                     Set SlajdPP = .Slides.Add(.Slides.Count + 1, ppLayoutText)
                     With SlajdPP
                     'Wstawienie tytułu slajdu
                     .Shapes(1).TextFrame.TextRange = Cells(i + 1, "R")

            '4.2. Dodanie wykresów

                '4.2.1. Wykres 1
                ActiveSheet.Shapes.Range(Array("Picture" & " " & i * 2 - 1)).Select 'wykres w formacie obrazu w Excel'u
                Selection.Copy
                .Shapes.Paste
                Set WykresPP = .Shapes(SlajdPP.Shapes.Count)

                '4.2.2. Pozycjonowanie wykresu na slajdzie
                With WykresPP
                    .Left = 40
                    .Top = 110
                    .LockAspectRatio = msoFalse 'odblokowanie wsp. proporcji
                    .Width = 400
                    .Height = 195
                End With

                '4.2.3. Wykres 2
                ActiveSheet.Shapes.Range(Array("Picture" & " " & i * 2)).Select 'wykres w formacie obrazu w Excel'u
                Selection.Copy
                .Shapes.Paste
                Set WykresPP = .Shapes(SlajdPP.Shapes.Count)

                '4.2.4. Pozycjonowanie wykresu na slajdzie
                With WykresPP
                    .Left = 40
                    .Top = 315
                    .LockAspectRatio = msoFalse 'odblokowanie wsp. proporcji
                    .Width = 400
                    .Height = 195
                End With

            '4.3. Doddanie statystyk

                '4.3.1. Wyznaczenie numeru pierwszego wiersza dla danej marki
                Wiersz = NrWiersza + 3 + 25 * (i - 1)

                '4.3.2 Wczytanie statystyk
                Tekst = Cells(Wiersz, 2) & " " & Cells(Wiersz, 3) & vbNewLine & _
                    Cells(Wiersz + 20, 2) & " " & FormatNumber(Cells(Wiersz + 20, 4), 2) & vbNewLine & _
                    Cells(iersz + 21, 2) & " " & Cells(iersz + 21, 4) & vbNewLine & _
                    Cells(Wiersz + 22, 2) & " " & Cells(Wiersz + 22, 4) & vbNewLine & _
                    Cells(Wiersz + 22, 2) & " " & Cells(Wiersz + 22, 4) & vbNewLine & _
                    vbNewLine & _
                    Cells(Wiersz + 20, 6) & " " & FormatNumber(Cells(Wiersz + 20, 9), 2) & vbNewLine & _
                    Cells(Wiersz + 21, 6) & " " & Cells(Wiersz + 21, 9) & vbNewLine & _
                    Cells(Wiersz + 22, 6) & " " & Cells(Wiersz + 22, 9) & vbNewLine & _
                    vbNewLine & _
                    Cells(Wiersz + 20, 11) & " " & Cells(Wiersz + 20, 13) & vbNewLine & _
                    Cells(Wiersz + 21, 11) & " " & Cells(Wiersz + 21, 13)

                '4.3.3. Pozycjonowanie pola
                .Shapes(2).Top = 110
                .Shapes(2).Left = 500
                .Shapes(2).Width = 330
                .Shapes(2).Height = 410
                .Shapes(2).TextFrame.TextRange = Tekst

        End With
        Next i

        '4.4. Stworzenie slajdu końcowego

            '4.4.1. Dodanie slajdu
            Set SlajdPP = PowerPointA.Presentations(1).Slides.Add _
                (PowerPointA.Presentations(1).Slides.Count + 1, ppLayoutText)
            SlajdPP.Shapes(1).Delete

            '4.4.2. Uzupełnienie slajdu
            With SlajdPP.Shapes(1)
                .TextFrame.TextRange = "DZIĘKUJĘ ZA UWAGĘ"
                .TextFrame.HorizontalAnchor = msoAnchorCenter
                .TextFrame.VerticalAnchor = msoAnchorMiddle
                .TextEffect.FontBold = msoCTrue
                .TextEffect.FontSize = 24
                .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 100, 170)
            End With

        End With

        '5. Zapisanie prezentacji PowerPoint
        PrezentacjaPP.SaveAs Excel.ActiveWorkbook.Path & "\Prezentacja_PP_" & Date & ".pptx"

    Application.ScreenUpdating = True 'Włącz odświeżanie ekranu

End Sub

Answer 1

延迟绑定意味着VBA只具有所涉及类型的运行时知识。这是后期的：

Dim PowerPointA As Object

该声明将在引用或不引用PowerPoint类型库的情况下进行编译。

因为VBA没有（不能）知道成员PowerPointA有什么，所以你在设计时没有获得 IntelliSense ，这将是愉快地编译...

PowerPointA.SomeMemberThatDoesNotExist

...并在运行时爆炸，错误438＆＃34;对象不支持此属性或方法＆＃34;。

针对Object或Variant的任何成员通话都是迟到的;在运行时，VBA需要查询接口以找到该成员并确定其存在：这意味着后期绑定代码会产生一些早期绑定代码不需要的轻微开销。

早期绑定意味着VBA具有所涉及类型的编译时知识。这是早期的：

Dim PowerPointA As PowerPoint.Application

该引用只能在引用PowerPoint类型库时进行编译。

因为VBA知道成员PowerPointA有什么，所以在设计时你会得到 IntelliSense （和自动完成），这个将应该 not compile：

PowerPointA.SomeMemberThatDoesNotExist

...但是Application可能是可扩展 COM接口（Excel.Application是）;如果是这样的话，那么VBA将编译代码，而SomeMemberThatDoesNotExist将是一个后期成员调用，它将在运行时爆炸，错误438＆＃34;对象没有＆＃t; t支持此属性或方法＆＃34;。

如果您希望将早期绑定代码转换为后期绑定代码＆＃34;，您真正想要的是从项目中删除类型库引用，并且仍然能够编译并运行代码。

假设引用是PowerPoint类型库，这意味着您需要替换此库中定义的代码中的所有内容 - 因为删除引用后，类PowerPoint.Application，{ {1}}，PowerPoint.Presentation和PowerPoint.Slide不再被定义，并且停止向VBA提出任何意义。因此：

将声明PowerPoint.Shape替换为As [PowerPoint.][ClassName]
将As Object替换为New [PowerPoint.][ClassName]
删除对CreateObject("ProgIdForThatClass")类型库
编译项目。不编译？回到1。

PowerPoint的{{1}}恰好是ProgId，因此您可以将其替换为：

PowerPoint.Application

有了这个：

"PowerPoint.Application"

这就是你需要做的一切。

如果你在别处引用了引用Set PowerPointA = New PowerPoint.Application类型库中定义的常量的代码，那么你想要用它们的基础值替换它们，或者自己定义等效常量，所以不要这样：

Set PowerPointA = CreateObject("PowerPoint.Application")

你有这个：

PowerPoint

或者这个：

foo = ppEffectFade

foo = 1793 'PowerPoint.PpEntryEffect.ppEffectFade=1793

或者这个：

Const ppEffectFade As Long = 1793

foo = ppEffectFade

您可以使用对象浏览器（ F2 ）找到所有常量，它们的值以及在任何引用类型库中定义的所有内容：

object browser showing definition of PowerPoint.PpEntryEffect.ppEffectAppear

将早期绑定代码转换为后期绑定

1 个答案: