イメージオブジェクトよりシェイプオブジェクトの方が軽い?

 ★ 差込印刷(PDF化)3 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
以前紹介した、エクセルで画像の差込印刷(PDF化)をするはイメージオブジェクトを使用していたのですが、シェイプオブジェクトを使用した方が処理が軽いようなので改めて紹介します。
 ただ、コードを比較しても解りづらいので動画をアップします。
 ※ファイルを上書きしてしまったため前のヴァージョンは録画してません。
 

コードは追記欄に掲載しています
 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ
シートモジュール


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 AdPic
DoEvents
Call toPDF
DoEvents
'ActiveWindow.SelectedSheets.PrintOut PDF化するのでコメントアウト
Next bangou
End Sub


Private Sub SpinButton1_Change()
Call AdPic
End Sub


標準モジュール


Option Explicit

Sub AdPic()
Application.ScreenUpdating = False
Dim i As Long
If Worksheets(1).Shapes.Count = 0 Then
GoTo ADDPIC
Else
GoTo DELSHAP
End If
DELSHAP:
With Worksheets(1)
For i = .Shapes.Count To 1 Step -1
If .Shapes(i).Type = msoPicture Then .Shapes(i).Delete
Next i
End With
ADDPIC:
Dim picst As String
picst = ThisWorkbook.Path & "\PIC\" & _
Right("00" & Range("B1").Value, 2) & ".JPG"
If Dir(picst) = "" Then
MsgBox "ERROR"
Exit Sub
End If
Worksheets(1).Shapes.AddPicture _
Filename:=picst, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=3, _
Top:=55, _
Width:=400, _
Height:=300
Application.ScreenUpdating = True
End Sub


Sub toPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\PDF\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub

関連記事
スポンサーサイト



コメントの投稿

非公開コメント

こんばんわ。

動画、拝見しました。
参考になりましたよ☆

また、このようなのアップしてくださいね^^

参考になりましたか?

> 動画、拝見しました。
> 参考になりましたよ☆
>
> また、このようなのアップしてくださいね^^

がちょーさま こんばんわ
早速見てくださってありがとうございます
Youtubeとブログの編集してて自分が再生確認するときいにはもう
がちょーさまのコメントが届いてたのでびっくりしましたよ(笑)
訪問者さま
カレンダー
09 | 2020/10 | 11
- - - - 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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 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
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3191位
アクセスランキングを見る>>

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

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

検索フォーム