それで、コマンド ボタンにマクロを割り当てました。押すと、ユーザーが画像ファイルをインポートするためのダイアログ ボックスが開きます。次に、画像のサイズを変更し、特定のセルに配置します。しかし、元の画像ファイルの場所を移動すると、Excel で画像が消えてしまいます。元のファイルの場所を移動しても問題ないように、Excel ファイル内に保存できる可能性はありますか。
コードは次のとおりです。
Sub Add_Image()
Application.ScreenUpdating = False
Range("B18").Select
'varible Picture1 is inserted down below - ***change both***
Picture1 = Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
'edit "("Picture,*.*")" section to add or chanve visible file types
On Error GoTo ErrMsg
ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 145
Selection.ShapeRange.Width = 282
Application.ScreenUpdating = True
Exit Sub
ErrMsg:
MsgBox ("Failed to load Image"), , "Error"
End Sub