| |
>作っていただいたマクロを利用して、ページ内に１枚の画像を張り付けていきたいと
>考えております
これ、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オブジェクトを対象にした印刷がうまくいかないときは、コメントにしている
コードと入れ替えて試してみて下さい。
|
|
