SoftwareEngineering
ThisWorkbook.Path
Excelのオプションで「[開発]タブをリボンに表示する」をチェックする。
Private Sub 図のリンク貼り付け() ActiveSheet.Pictures.Paste(Link:=True).Select Application.CutCopyMode = False Selection.ShapeRange.Fill.Visible = msoTrue End Sub