画像の差し込み印刷やっとできた…
以前から画像の差し込み印刷にチャレンジしていたのですが上手くいかず。
昨日はエクセルの学校さんのエクセル質問掲示板でわからないとこ教えて貰ってきました。
マナさんご教授ありがとうございました。
DoEventsですね。
DoEvents
おかげで、ちゃんと動くようになりました。
エクセルでVLOOKUPを使って連続印刷するマクロはよく見かけるのですが
画像の差し込み印刷となるとなかなかサンプルが見つかりません。
先月仕事で48ページ画像付きの表(下図はそれを簡素化し自宅で再現したものです)を印刷しなかればならず、
そのときはスピンボタンを使ってしのぎました。
前任者はシートを40枚くらい作成し、一枚ずつ画像の挿入していたそうです、面倒くさがりの僕にはきついです。
10月にもまた同じ作業があるので、そのときは少し楽ができそうです。
昨日はエクセルの学校さんのエクセル質問掲示板でわからないとこ教えて貰ってきました。
マナさんご教授ありがとうございました。
DoEventsですね。
DoEvents
おかげで、ちゃんと動くようになりました。
エクセルでVLOOKUPを使って連続印刷するマクロはよく見かけるのですが
画像の差し込み印刷となるとなかなかサンプルが見つかりません。
先月仕事で48ページ画像付きの表(下図はそれを簡素化し自宅で再現したものです)を印刷しなかればならず、
そのときはスピンボタンを使ってしのぎました。
前任者はシートを40枚くらい作成し、一枚ずつ画像の挿入していたそうです、面倒くさがりの僕にはきついです。
10月にもまた同じ作業があるので、そのときは少し楽ができそうです。
'-----標準モジュール-----------------------------------------
Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & Sheets("TEMP").Range("B1"), 2) & ".jpg"
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End Sub
'------Sheet1(TEMP)---------------------------------------
Option Explicit
Private Sub CB1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '終了番号
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP
DoEvents
ActiveWindow.SelectedSheets.PrintOut
Next bangou
End Sub
Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & Sheets("TEMP").Range("B1"), 2) & ".jpg"
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End Sub
'------Sheet1(TEMP)---------------------------------------
Option Explicit
Private Sub CB1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '終了番号
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP
DoEvents
ActiveWindow.SelectedSheets.PrintOut
Next bangou
End Sub
- 関連記事
-
- ドラッグ 2018/03/19
- コピペ 2018/03/16
- 画像の差し込み印刷やっとできた… 2017/08/08
- エクスプローラーがフォルダのサイスも表示してくれれば… 2017/08/04
- オートシェイプでお絵かき 其の弐 2017/07/28
スポンサーサイト