質問: Excel 2010 で Pictures.Insert メソッドを使用し、 jpg画像等を挿入すると、リンク オブジェクトとして挿入され、 元画像ファイルの移動や削除があると、 ワ-クシ-トに表示されなくなる回避策を教えてください。
回答: 事前にセル(または結合セル)の縦横比を画像の縦横比に一致させます。選択したセルのサイズに合わせた画像がリンクなしで貼り付けられます。ご希望のコードでしょうか。お試しください。 Sub InsPict() Dim objFileName As String Dim objShape As Shape objFileName = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "画像選択ダイアログ") Set objShape = ActiveSheet.Shapes.AddPicture( _ Filename:=objFileName, _ LinkToFile:=False, _ SaveWithDocument:=True, _ Left:=Selection.Left, _ Top:=Selection.Top, _ Width:=Selection.Width, _ Height:=Selection.Height) End Sub