Excel内のWord CommandButtonオブジェクトで動作しない

Question

Word文書を開き、名前でCommandButtonオブジェクトを探すExcelマクロを作成しています。オブジェクトが見つかると、そのオブジェクトに関連付けられているピクチャがあるかどうかを確認しようとします。オブジェクトの位置を特定しているようですが、画像のハンドルを参照しようとすると「壊滅的」な死があります。私はこれを前にやっていて、写真のハンドルがゼロであるかどうかを調べるのが私のために働いています。何がここにあるのかわからない、誰かが私が逃しているものを見ることができるかもしれない？

Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open(strFileName) 
objWord.Visible = True 

Set cmdSignatureButton = fncGetCommandButtonByName("NameOfCommandButtonImLookingFor", objDoc) 
MsgBox "h=" & cmdSignatureButton.Picture.Handle 
' It dies here, giving the error: 
' Runtime error -2147418113 (8000ffff) 
' Automation error 
' Catastrophic failure 



Private Function fncGetCommandButtonByName(strName As String, objDoc As Word.Document) 
    Dim obj As Object 
    Dim i As Integer 

    For i = objDoc.InlineShapes.Count To 1 Step -1 
     With objDoc.InlineShapes(i) 
      If .Type = 5 Then 
       If .OLEFormat.Object.Name = strName Then 
        Set fncGetCommandButtonByName = .OLEFormat.Object 
    MsgBox "Found the Command Button object"  ' Seems to find the CommandButton object here 
        Exit Function 
       End If 
      End If 
     End With 
    Next 
End Function 

Answer 1

[OK]を、私は、少なくとも、アプローチを持っていると思います。私は次の問題に進みました。これは非常に似ています。この場合、Excelスプレッドシート内のコマンドボタン内の画像を探していますが、私はAccessからそうしています。フープを飛び越えてExcelファイルを調べるためにAccess VBAを取得する代わりに、Accessが呼び出すExcelファイルにPublic Functionを配置します。 Excelはイメージのボタンをチェックするのに何の問題もないので、私の答えを返します。

パブリック関数の実行方法を理解していなければならず、それは十分に簡単でした。フィードバックありがとう、Ryan。あなたの仕事がなぜうまくいかなかったのかまだ分かりませんが、少なくとも私はそれを取りました。

Answer 2

この機能は問題なく実行できました。コードをステップ実行して、ドキュメントが最初に完全に読み込まれているかどうかを確認することができます。

ここでは、元の質問のフォーマットと一致するように編集されたコードがあります。

Dim objWord As Object: Set objWord = CreateObject("Word.Application") 
    Dim objDoc As Object: Set objDoc = objWord.Documents.Open(strFileName) 

    objWord.Visible = True 
    Dim cmdSignatureButton As Object 

    Set cmdSignatureButton = fncGetCommandButtonByName("CommandButton1", objDoc) 

    If Not cmdSignatureButton Is Nothing Then 
     'Do something when it isn't nothing 
     MsgBox "h=" & cmdSignatureButton.Picture.Handle 
    Else 
     'Something here 
    End If 

Private Function fncGetCommandButtonByName(strName As String, objDoc As Word.Document) As Object 
    Dim i As Integer 

    For i = objDoc.InlineShapes.Count To 1 Step -1 
     With objDoc.InlineShapes(i) 
      If .Type = 5 Then 
       If .OLEFormat.Object.Name = strName Then 
        Set fncGetCommandButtonByName = .OLEFormat.Object 
        Exit Function 
       End If 
      End If 
     End With 
    Next 

    Set fncGetCommandButtonByName = Nothing 'set it equal to nothing when it fails 
End Function 

あなたはまだそのエラーを受信して​​いる場合、私はそれは絵が完全にロードされていないとは何かを持っていることを考えています。もしそうなら、私はそのエラーをキャッチするためにいくつかのエラー処理を追加し、ピクチャのハンドルが利用可能かどうかを確認するためにもう一度リトライを処理します。私はそのコードを実行するとき

は、ここで私が得るものです：