Option Explicit Public Sub InsertImages() '指定したフォルダ内の画像ファイルを一括挿入 Dim prs As PowerPointPresentation Dim sld As PowerPointSlide Dim shp As PowerPointShape Dim tmp As PowerPointPpViewType Dim fol As Object, f As Object Dim fol_path As String Set prs = ActivePresentation 'スライドショー表示になっていたら解除 If そんなときは、「Alt」キーを押しながら図形をドラッグ (図1)。 すると、微調整ができる。 ちなみに、PowerPointでは、図形の位置がきれいに揃うように「グリッド線」という格子状の線を目安にしている。 しかし、これが、図形の位置を微調整できない理由でもあるのだ。 グリッド線の存在を気にせずに操作したい場合には、グリッド線の間隔を狭くしたり (図2 画像をコピーして、PowerPoint 07に貼り付ける時に、元の画像の解像度が大きいためか、パワーポイントのスライドの大きさを遥かに凌駕した大きさの図が張り付きます。 毎回縮小するのが手間なので、貼り付ける図の大きさをあらかじめ縮小する設定を行いたいと思うのですが、「図 貼り付け
パワーポイントで複数の写真をスライドに一括で挿入する2つの方法 Ppdtp
