[[20160311152840]]　『PDFが2ページの時、サイズ縮小してエクセルに貼り』（ちとし）　ページの最後に飛ぶ

『PDFが2ページの時、サイズ縮小してエクセルに貼り付けたい』（ちとし）

いつもお世話になっております。

エクセル学校なのにＰＤＦの質問なのかもしれませんが・・
最終的に「エクセルの表に貼り付けたい」ので、
質問させてください！
※初心者につき、場違いでしたらすみません！
　すぐに削除しますので、ご指摘ください！！

質問は要約（タイトル）の通りですが・・・

基本はＰＤＦで　1ページのデータがあり、
それをエクセルに（マクロで）画として貼りつけています。
※下に備考欄が入るため「横」画として貼られます。
イメージ↓
｜　Ｅ｜
｜－－｜
｜備考｜
｜　　｜
※「Ｅ」は横になっている画としてイメージしてください。　

このＰＤＦが　2ページになるケースが出てきてしまい
縮小して縦に貼り付け×2
イメージ↓
｜山｜山｜
｜－－－｜
｜備考　｜
｜　　　　｜
※画は縮小しているとイメージしてください。
としたいんです。

→うまく図化できず、すみません。

初心者につき、うまいやり方が思いつかないため
良案がありましたら、ご教示ください！
よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 http://freepdfsoftware.web.fc2.com/pdflecture/pdflecture8.html
（a） 2016/03/11(金) 16:35

aさん

コメントありがとうございます。
しかし、その「貼り付け」だけでしたら　既に組み込み済みです。

問題としているのは「2ページあったら縮小貼り付け」です。
最上位の条件として「ページ数の確認」が入ってきます。

説明がわかりにくかったかもしれませんが、
よろしくお願いします！
（ちとし） 2016/03/11(金) 16:48

追記・・・

「やり方」とはしていますが、
できればVBAで自働化したいと考えています。

ご教示、よろしくお願いします！

（ちとし） 2016/03/11(金) 17:33

Sub main() 'ご参考

    Dim t, l
    For Each shp In ActiveSheet.Shapes
        t = shp.Top
        l = shp.Left
        shp.IncrementRotation 90
        shp.LockAspectRatio = msoTrue
        shp.Height = shp.Height * 0.5
        shp.Top = t
        shp.Left = l
    Next shp
End Sub
（mm） 2016/03/11(金) 17:45

コメント返信：

[ 一覧(最新更新順) ]

[[20160311152840]] 『PDFが2ページの時、サイズ縮小してエクセルに貼り』（ちとし） ページの最後に飛ぶ

[[20160311152840]]　『PDFが2ページの時、サイズ縮小してエクセルに貼り』（ちとし）　ページの最後に飛ぶ