VBAでExcel内の画像を出力する

Excel内の画像をVBAから出力する方法です。
冒頭からなんですが、ちょっと問題があるので注意が必要です。

• （jpegに保存するため） 画質が少々劣化する＆透過画像はつくれない
• ごく稀に出力されずに真っ白のアイコンになってしまう
• 背景も一緒に画像化するので、必要ならセルを都合の良い色で染めておく必要がある

Dim shps As Shapes: Set shps = Table_Icons.Shapes
Dim shp As Shape
Dim area As Object
For Each shp In shps
    If shp.Type = msoPicture Then
        Set area = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngTarget)
        If Not (area Is Nothing) Then
            ' 画像があればキャプションをとってファイル保存
            shp.CopyPicture xlScreen
            Charts.Add.Location xlLocationAsObject, Table_Icons.Name
            Dim myChart As Object: Set myChart = Table_Icons.ChartObjects(1)
            With myChart
                .Width = shp.Width
                .Height = shp.Height
                .Chart.Paste
                .Chart.ChartArea.Border.LineStyle = 0
                .Chart.Export ThisWorkbook.path & "作った隠しディレクトリ\ファイル名.jpg", "JPEG"
                .Delete
            End With
            Exit For
        End If
    End If
Next

だったらバイナリデータを保持しておいて、それで出力すれば良いと思います。

みにましあ

 

https://minimashia.net/vba-msgbox-icon

2012.12.28

VBAのMSGBOXのアイコンを用意する

VBAのMsgBoxを自作する上で困るのはアイコンです。あ、「いきなりなんだよ」と思った方はこちらからどうぞ。MsgBoxは引数によって4種類(情報、警告、問い合わせ、注意)のアイコンを表示します。ですが、いくらVBA上とはいえ勝手に使っていいものなのか？？ていうかそもそもMsgBoxを使わないならどこからこのアイコン取ってくれば？？調べてもわからないというか、望み薄そうだったので、大して調べずに商業用もOKのフリー素材からよく似たものを貰って来ました。次にこのアイコンをどこに保持していようか、です。自分がローカルで使う...

他にもニッチなIT関連要素をまとめていますので、よければ一覧記事もご覧ください。

みにましあ

 

https://minimashia.net/it-tips

2019.12.04

IT tips

ITカテゴリーのページじゃ探しにくい方向けにまとめた記事です。ニッチな情報ばかりなので、需要あるのか疑問だわぁ…。Windowsスリープ中のWindowsパソコンでもUSB充電する方法Windows10（1909）のダウンロードフォルダの表示をもとに戻す自宅勤務でネットワーク設定の切り替えをする 自宅勤務でスピーカー設定の切り替えをするWindows11対応端末かどうか調べるWindows10の大型Update（21H1）に失敗する場合の対処法いまさらWindows7を用意して.NET Framework4.6.2をインストールしてみたWindows11を触ってみた感想@2022年4月同じ...