画像表示マクロ　ができるまで　その１

はじめに
イメージ
クリアすべきポイント
- 画像を貼り付ける
やってみる
おまけ

はじめに

Excelはもともと表計算ソフトなのですが、色々なことができます。

「表形式で管理しているデータの、行ごとの画像を切り替えるものがほしい」

と知人に言われたときに、なるほどそんな要望があるのか、と思ったものです。

イメージ

シンプルにこんな感じで

f:id:vba-belle-equipe:20160331152017p:plain

選択された行に応じて、画像ファイルを表示させるようにしてみたい、という話でした。

クリアすべきポイント

画像を貼り付ける
何らかのアクションで、行データに応じた画像に切り替える

こんな感じでしょうか。

画像を貼り付ける

「vba 画像表示」あたりで検索すると

画像ファイルを挿入する：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

こちらのページが見つかると思います。

「C:¥test¥フリー画像素材」フォルダに表示させたい画像ファイルがあるとして、

Sub test()
  Dim imgPath As String
  Dim myShape As Shape
  
  imgPath = "C:¥test¥フリー画像素材¥rokuro.jpg"
  Set myShape = ActiveSheet.Shapes.AddPicture( _
      Filename:=imgPath, _
      Linktofile:=True, _
      SaveWithDocument:=False, _
      Left:=0, _
      Top:=0, _
      Width:=0, _
      Height:=0)
  
  With myShape
    .ScaleHeight 1, msoTrue
    .ScaleWidth 1, msoTrue
  End With

End Sub