Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68537 / 76738

←次へ　｜　前へ→


	【12736】Re:複数の画像データ(jpg)を一括で選択しサイズを変更したいのですが

Kein - 04/4/13(火) 15:05 -


	引用なし

	パスワード

>作っていただいたマクロを利用して、ページ内に１枚の画像を張り付けていきたいと
>考えております
これ、A列に並べていくのと違う処理になると思いますが、応用して出来るという
ことですね ? それならご自分でやって下さい。もう１つの質問で
>B1:N40、B41:N80、B81:N120、B121:N160..と50ページあります。
>セルの番地c5,c45,c85,c125、サイズはPic.Width = 200: Pic.Height = 100)
>があればそのページを印刷したいのですが可能でしょうか？
ですが、50ページ全部をチェックするのでなく「c5,c45,c85,c125 に画像ファイルの
左上端が位置しているページ」と解釈するなら・・

Sub MyPG_Print()
　 Dim PAry As Variant, CkR As Variant, GetR As Variant
　 Dim Pic As Object
　 Dim Ad As String

　 PAry = Array("$B$1:$N$40", "$B$41:$N$80", _
　 "$B$81:$N$120", "$B$121:$N$160")
　 CkR = Array("$C$5", "$C$45", "$C$85", "$C$125")
　 ActiveSheet.OLEObjects.PrintObject = True
　 For Each Pic In ActiveSheet.Pictures
　　　Ad = Pic.TopLeftCell.Address
　　　GetR = Application.Match(Ad, CkR, 0)
　　　If Not IsError(GetR) Then
　　　　 Range(PAry(GetR)).PrintOut Copies:=1
　　　　 'ActiveSheet.PageSetUp.PrintArea = PAry(GetR)
　　　　 'ActiveSheet.PrintOut Copies:=1
　　　End If
　 Next
　 'ActiveSheet.PageSetUp.PrintArea = ""
　 Erase PAry, CkR
End Sub　

Rangeオブジェクトを対象にした印刷がうまくいかないときは、コメントにしている
コードと入れ替えて試してみて下さい。

0 hits

▼

【12666】複数の画像データ(jpg)を一括で選択しサイズを変更したいのですが やまと1 04/4/11(日) 0:17