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


 どうもこんばんわ、水槽がエライ事になってほかのことを考えようとしてエクセルの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が消えてる、まぁいいか
スポンサーサイト



ポンプ停止

 ★ 上部フィルターとポンプ交換 ★ 
 どうもこんばんわ阿良々木です。
 昨日から様子のおかしかったネオンテトラ&グッピー水槽ですが、上部フィルターのポンプが停止し水質が急激に悪化して大量死発生です゚(゚´Д`゚)゚
 いや、一日でそこまで悪化するでしょうか?今朝見たときは動いてましたし…
 止まったり、動いたり繰り返していたのでしょうか?
 もしかしたら水槽上下2段に配置してるので上の水槽のポンプが止まったのに気付かなかった?
 いまさら思い返しても結果は変わらないですよね(;>_<;)
 結局、緊急換水と上部フィルターの「交換をしました…
 書いてて悲しくなってきたので、このへんで(。・д・。)ノシ"
 

ブログランキング・にほんブログ村へ
にほんブログ村
訪問者さま
カレンダー
06 | 2018/07 | 08
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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 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位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

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

検索フォーム