画像の差し込み印刷やっとできた…

以前から画像の差し込み印刷にチャレンジしていたのですが上手くいかず。
昨日はエクセルの学校さんのエクセル質問掲示板でわからないとこ教えて貰ってきました。
マナさんご教授ありがとうございました。
DoEventsですね。
DoEvents
おかげで、ちゃんと動くようになりました。
エクセルでVLOOKUPを使って連続印刷するマクロはよく見かけるのですが
画像の差し込み印刷となるとなかなかサンプルが見つかりません。
先月仕事で48ページ画像付きの表(下図はそれを簡素化し自宅で再現したものです)を印刷しなかればならず、
そのときはスピンボタンを使ってしのぎました。
前任者はシートを40枚くらい作成し、一枚ずつ画像の挿入していたそうです、面倒くさがりの僕にはきついです。
10月にもまた同じ作業があるので、そのときは少し楽ができそうです。

VLPICS.jpg

'-----標準モジュール-----------------------------------------
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
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
08 | 2020/09 | 10
- - 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
2050位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
68位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム