6

私は周りを見回した。私が見つけることができたのは、Excel または Excel でサイズを変更することだけでした。

PDF から画像を貼り付けていますが、ワンクリックでサイズ変更と配置が必要です。

4

3 に答える 3

8

私はついにそれを手に入れました..誰かが同じ問題に直面している場合に備えて、これが私がしたことです。これにより、画像のサイズが変更され、目的の位置に設定され、背面に送信されます。

Sub Resize()
    With ActiveWindow.Selection.ShapeRange
        .Height = 2.78 * 72  //72 is the multiplier for the inch
        .Width = 4.17 * 72
        .Left = 0.78 * 72
        .Top = 1.25 * 72
        .ZOrder msoSendToBack  // This sends picture to the back
    End With
End Sub
于 2012-10-19T14:00:10.177 に答える
2

コードをありがとう。スライドのサイズに合わせて、一連のスクリーンショットのサイズを自動的に変更できるようにしたいと考えていました。他の人もこれを行う必要があると思うので、私が行ったことを投稿します。

まず、PowerPoint 2010 のページ設定で、モニター/スクリーンショットの比率に合わせてスライドを 16:9 に設定しました。次に、空白のスライドを追加し、各スクリーンショットの画像を貼り付けました。次に、次のコードを実行しました。

Sub ResizeAll()
For each tSlide in ActiveWindow.Presentation.Slides
    tSlide.Select
    With tSlide.Shapes.Item(1) 'assume a blank slide with one image added only
        .Select
        .Height = ActiveWindow.Presentation.PageSetup.SlideHeight
        .Width = ActiveWindow.Presentation.PageSetup.SlideWidth
        .Left = 0
        .Top = 0
    End With
Next
End Sub
于 2013-04-03T20:47:05.447 に答える
0

スライドに画像を収めるコード (必要に応じて高さと幅を変更します):

pptSlide.Shapes(1).高さ = 850: pptSlide.Shapes(1).幅 = 650

于 2013-09-25T08:34:49.777 に答える