埋め込まれた画像をリンクの代わりに埋め込み

以下のコードは、私がSOと他のいくつかのリソースを使って協力してくれました。私はそれを私のスプレッドシートと一緒に使うことができました。代わりにEmbedded imagesとしてこれらを追加するためにとにかくあります...私はこのコードについて気づい埋め込まれた画像をリンクの代わりに埋め込み

Sub AddPicture(l As Long, t As Long, w As Long, h As Long, aRatio As Boolean) 

    With Application.FileDialog(msoFileDialogFilePicker) 
     .AllowMultiSelect = False 
     .ButtonName = "Submit" 
     .Title = "Select an image file" 
     .Filters.Clear 
     .Filters.Add "All Pictures", "*.*" 

     If .Show = -1 Then 
      Dim img As Picture 
      Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1)) 

      If (Not aRatio) Then 
       img.ShapeRange.LockAspectRatio = msoFalse 
      Else 
       img.ShapeRange.LockAspectRatio = msoTrue 
      End If 
      img.left = l 
      img.top = t 
      img.width = w 
      img.height = h 
     Else 
     End If 
    End With 

End Sub

ことの一つは、画像がLinked Imageとして追加されていることであり、これは道をいくつかの問題を引き起こす可能性が？

出典

2017-11-20 Maldred

https://stackoverflow.com/questions/17110425/vba-to-insert-embedded-picture-excel – braX

@braX見つけるとANとダンディに動作するようですすでに知られているファイルパスですが、ユーザーにアイテムの選択を要求するとき、どうすればいいですか？ – Maldred

ファイルピッカーのためのブロックであなたにこれを追加

FullPathName = .SelectedItems（1）
BRAXの答えのリンクの変更で次に

ファイル名：= "C ：\ test \ desert.jpg "

ファイル名：= FullPathName

出典

2017-11-20 18:51:58 mooseman

優秀なこれは完璧に働いた、ありがとう – Maldred

埋め込まれた画像をリンクの代わりに埋め込み

答えて

関連する問題