FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

画像の差し込み印刷(エクセル)


 どうもこんばんわ、水槽がエライ事になってほかのことを考えようとしてエクセルのVBAをいじっていた阿良々木です。
 皆さんはエクセルのVLOOKUP関数を使って帳票を作成したりしたことありませんか?
 それで、画像も差し込めたらいいとか考えたことありませんでしょうか?僕はあります。
 ワードの差し込み印刷でも同じようなこと出来るみたいですけど、しっくりきませんでした。
 なので、下のようなコードを組んでみました。

標準モジュール ※画像切り替え用

Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".jpg"
If Dir(picst) = "" Then
Sheets("TEMP").Image1.Picture = LoadPicture("")
Else
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End If
End Sub

スピンボタンやコマンドボタン
Option Explicit

Private Sub SpinButton1_Change()
Call LP
End Sub

Private Sub CommandButton1_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

 え~では、まず、ブックをひとつ作成、同一階層に「PIC」というフォルダを作成し、01.jpg~10.jpgの画像を用意しておきます。
 次に、えーとシート「TEMP」にImage1を配置します。それから
 え~っと(´Д`;) 詳しく説明すると長くなるのでここで終り((゚Д゚)ノ)
 いやいや
 じゃあ簡単に
 シート「LIST」の表をVLOOKUP関数で参照、LP(LoadPictureの略)をCallで呼び出しImage1の画像を切り替えます。以上です。
 うーん(゜レ゜)いいのかこれで(´Д`;)
 もし、使ってみたいけど使い方がわからないという方がいらっしゃいましたらコメントお願いします。
 そういえば、ここ(FC2ブログ)って画像や動画以外、zipや.xlsmとかアップロートできるのでしょうか?
 ご存知の方コメントください。では(o・・o)/
 自己レス:http://blogfc2manual.blog.fc2.com/blog-entry-87.htmlにのってました。無理みたいですね。
 ■ シート名「TEMP」
sh1.jpg

 ■ シート名「LIST」
sh2.jpg

あっ、3が消えてる、まぁいいか
関連記事
スポンサーサイト

コメントの投稿

非公開コメント

FC2カウンター
阿良々木''@_掲示板 NEW
入口
RSSリンクの表示
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク
らくがき
新着記事
トップページ Jan 01, 2030
PLUS COFFEE Oct 10, 2018
アキネトン追加 Sep 27, 2018
操作性.… Sep 23, 2018
まわりに危機感がないと… Sep 19, 2018
異世界魔王と召喚少女の奴隷魔術 四月は君の嘘 Sep 18, 2018
その一言で Sep 13, 2018
住所と名前を書いてハンコを押す Sep 12, 2018
残高が… Sep 12, 2018
リクは基本無しでお願いします(笑) Sep 10, 2018
カテゴリ
カレンダー
11 | 2018/12 | 01
- - - - - - 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 - - - - -
アクセスランキング
[ジャンルランキング]
ブログ
4380位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
209位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。