Top > PowerPoint 元がEPSの図を貼る
マクロ
画像を貼り付けるマクロSub EqFig() ActiveWindow.Selection.SlideRange.Shapes.AddPicture( FileName:="画像ファイルのパス", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=333, Top:=243).Select With ActiveWindow.Selection.ShapeRange .Fill.Transparency = 0# .ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft .ScaleWidth 0.25, msoFalse, msoScaleFromTopLeft End With End Sub ここでは25%に縮小して貼り付けている。 上の分をそのままコピペすると改行の問題でエラーになるので注意。
|