エクセル、ワードのファイルに貼り付けた画像の変更

マクロの例です。 シート上の画像を選択した状態で実行します。 セルを範囲選択した状態で実行した場合も、その範囲ちょうどに張り付きます。 Sub ChgPic() '選択画像のサイズで別画像と入れ替え 　Dim T, L, H, W, FName 　Application.ScreenUpdating = False 　T = Selection.Top 　L = Selection.Left 　H = Selection.Height 　W = Selection.Width 　Selection.Delete 　FName = Application.GetOpenFilename 　ActiveSheet.Pictures.Insert(FName).Select 　Selection.Top = T 　Selection.Left = L 　Selection.Height = H 　Selection.Width = W 　Application.ScreenUpdating = True End Sub 画像の右クリックメニューに追加すれば、右クリックメニューから操作できますね。