Почему я получаю «ошибку времени выполнения 438», используя диалоговое окно для вставки pic с vba-word - PullRequest
Новая
       15

Почему я получаю «ошибку времени выполнения 438», используя диалоговое окно для вставки pic с vba-word

0 голосов
/ 11 июня 2019

Я использую слово макрос для вставки некоторых изображений в диалоговом окне.в то время как я пробую это, я получаю ошибку времени выполнения 438 - объект не поддерживает это свойство или ... даже с этой проблемой я могу вставить изображение.Но также поинтересовался, почему я не могу назвать этот макрос в другом макросе.Может ли кто-нибудь помочь с этим?

Я удалил ненужный код, который у меня был ранее.но кажется, что у меня все еще есть какая-то функция, которая не существует или не нужна?

Sub Insert_Diagram()
Dim doc As Word.Document
Dim oDialog As Word.Dialog
Dim fd As FileDialog
Dim vItem As Variant
Dim mg1 As Range
Dim mg2 As Range

Set oDialog = Dialogs(wdDialogInsertPicture)

With oDialog

    If .Show = -1 Then
        For Each vItem In .SelectedItems
            Set mg2 = ActiveDocument.Range
            mg2.Collapse wdCollapseEnd
            doc.InlineShapes.AddPicture _
              FileName:=vItem, _
              LinkToFile:=False, SaveWithDocument:=True, Range:=mg2
            Set mg1 = ActiveDocument.Range
            mg1.Collapse wdCollapseEnd

        Next vItem
    End If
End With; End Sub
...