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

以前から画像の差し込み印刷にチャレンジしていたのですが上手くいかず。
昨日はエクセルの学校さんのエクセル質問掲示板でわからないとこ教えて貰ってきました。
マナさんご教授ありがとうございました。
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
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
02 | 2024/03 | 04
- - - - - 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
31 - - - - - -
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
Ctrl + Shift + F Dec 26, 2022
エクセルで作った掲示板のCSSを弄ってみた  Dec 24, 2022
やっとPS5を入手 Dec 13, 2022
アクセスランキング Dec 12, 2022
英語の月名がわからないときとか使ってます。 Dec 11, 2022
似顔絵って難しい。 Dec 11, 2022
特性が均衡しています。 Dec 10, 2022
メガドラミニ2のスぺハリ2みたいにZoom機能をつけてみた。 Dec 08, 2022
エクセルのリストボックスに落書きしてみた Dec 08, 2022
エクセルで画像の差し込みをする(備忘録) Dec 06, 2022
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
6602位
アクセスランキングを見る>>

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

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

検索フォーム