「C:\1.jpg」を画像とリンクさせずにX方向100,Y方向200ポイントの位置に50×50のサイズで挿入します。 Sub Sample85() ActiveSheet.Shapes.AddPicture "C:\1.jpg", msoFalse, msoTrue, 100, 200, 50, 50 End Sub