ExcelのWordで画像の名前を取得

Question

Excel VBAを使用して、Active Word文書で画像の名前を取得する必要があります。

これは私が使用しているコードです：

Dim WordApp As Object 
Dim DocumentoDestino As Object 
Set DocumentoDestino = WordApp.ActiveDocument  
MsgBox DocumentoDestino.Shapes(1).Name 

も：

Dim WordApp As Object 
Dim DocumentoDestino As Object 
Set DocumentoDestino = WordApp.ActiveDocument  
MsgBox DocumentoDestino.InlineShapes(1).Name 

しかし、これらのどれも機能していないが。

エラーメッセージは「438: Object doesn't support this property or method」です。

Answer 1

まず、WordAppオブジェクトを作成する必要があります。

Dim WordApp As Word.Application 
Dim DocumentoDestino As Document 

Set WordApp = CreateObject("word.Application") 
Set DocumentoDestino = WordApp.ActiveDocument