PowerPoint

元がEPSの図を貼る †

1. PDFからコピペするとボケボケかも
2. GhostViewにてConvert。解像度は600とか。 その後トリミングしないといけない。 Convert時にオプション指定でトリミングしてくれんのかな？
3. Ghostscript で256色 PNG に

   gswin32c -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=png256 -dEPSCrop -r600 
   -dTextAlphaBits=4 -dGraphicsAlphaBits=4 -sOutputFile=hoge.png hoge.eps

マクロ †

• マクロにショートカットキーを割り当てることができない・・ どういうことなの……
• メニュー→ツール→マクロ→セキュリティ にてセキュリティを下げておかないと…… なお、変更後は PowerPoint を再起動しなければならない。

画像を貼り付けるマクロ †

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

ここでは２５％に縮小して貼り付けている。 上の分をそのままコピペすると改行の問題でエラーになるので注意。