複数の図形オブジェクトから選択してWord vbaに挿入

Question

ワークブックに複数の会社ロゴがあり、ワークブックとして生成するWord文書に選択して挿入しようとしているワークシートに共有されています。ドライブまたは集中化された場所（これは私が以下にコメントし、それが動作する）です。私は文字列として写真を参照する方法については紛失していますか？ファイルの場所をワークブック内の図形/図形と置き換えます。何か案は？あなたがここに文字列としての写真を参照して意味が、何

Dim CompanyLogo As String 
Dim Pic As Shape 
Dim shp As Object 

On Error GoTo ERRHANDLER 
INSHEADERLOGO = True 


'Select from multiple logos based on user selection 
'CompanyLogo = "C:\Users\Me\Dropbox\Pics\My Logo.jpg" 
TWB.Activate 
IWS.Activate 
For Each Pic In ActiveSheet.Shapes 
    If Pic.Type = msoPicture Then 
     If Pic.Name = WD.PicName Then 
      Debug.Print Pic.ID 
      Debug.Print Pic.Name ' neither worked 
      CompanyLogo = Pic.Name 
      Set shp = DOC.sections.item(1).headers(1).Shapes.AddPicture(CompanyLogo) 
     End If 
    End If 
Next Pic 

Answer 1

わからないが、私はちょうどしようとしたものであり、それは私にあなたが探しているすべての情報を与えました。うまくいけば、これは役に立ちます：

Sub PicThing() 

    Dim oPic As Shape 
    Dim oWS As Worksheet: Set oWS = ThisWorkbook.Worksheets(1) 

    For Each oPic In oWS.Shapes 
     MsgBox "Type: " & oPic.Type & vbCrLf & "Name: " & oPic.Name & vbCrLf & "ID: " & oPic.ID 
    Next 

End Sub