Excel VBA質問箱 IV

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

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


68533 / 76734 ←次へ | 前へ→

【12736】Re:複数の画像データ(jpg)を一括で選択しサイズを変更したいのですが
回答  Kein  - 04/4/13(火) 15:05 -

引用なし
パスワード
   >作っていただいたマクロを利用して、ページ内に1枚の画像を張り付けていきたいと
>考えております
これ、A列に並べていくのと違う処理になると思いますが、応用して出来るという
ことですね ? それならご自分でやって下さい。もう1つの質問で
>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オブジェクトを対象にした印刷がうまくいかないときは、コメントにしている
コードと入れ替えて試してみて下さい。

1 hits

【12666】複数の画像データ(jpg)を一括で選択しサイズを変更したいのですが やまと1 04/4/11(日) 0:17 質問
【12667】Re:複数の画像データ(jpg)を一括で選択しサ... kein 04/4/11(日) 0:31 回答
【12670】Re:複数の画像データ(jpg)を一括で選択しサ... やまと1 04/4/11(日) 22:40 お礼
【12672】Re:複数の画像データ(jpg)を一括で選択しサ... Kein 04/4/11(日) 23:56 回答
【12673】Re:複数の画像データ(jpg)を一括で選択しサ... やまと2 04/4/12(月) 1:43 お礼
【12689】Re:複数の画像データ(jpg)を一括で選択しサ... Kein 04/4/12(月) 15:39 回答
【12707】Re:複数の画像データ(jpg)を一括で選択しサ... やまと 04/4/12(月) 22:44 お礼
【12736】Re:複数の画像データ(jpg)を一括で選択しサ... Kein 04/4/13(火) 15:05 回答

68533 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free