第27回「エクセル挿入時にファイル形式によって挿入をはじく方法！」

へいよー！つのかぼちゃーです！

はい！今回は、

「エクセル挿入時にpng形式以外のファイルをはじく方法」

について書いていきます！

それではさっそくプログラムにレッツゴー！！

第26回で作ったプログラムに If 文を付け加えました！

では解説していきます！

Dim foldanonamae As String

→ VBAさん！foldanonamae は文字だよ！

foldanonamae = Application.GetOpenFilename

→エクスプローラーを開いて、フルパスを foldanonamae に代入してね！

If InStr(foldanonamae, ".png") > 0 Then

→もし foldanonamae（=選択した画像のフルパス）に「.png」が入っていたら

Worksheets("Sheet1").Pictures.Insert(foldanonamae).Select

→「Sheet1」にフルパスが foldanonamae の画像（=選択した画像）を挿入してね！

Else

→それ以外の場合

Call MsgBox("png形式のファイルにしてちょ")

→メッセージボックスに「png形式のファイルにしてちょ」と出力

End If

 →もしもの話は終わり！

 以上です！

では実行してみましょう！！

①エクスプローラーが開きましたね

②png形式以外のファイルを選択！

すると！

ちゃんとメッセージボックスに

「png形式のファイルにしてちょ」と出力されました！

ちなみに

プログラムを実行して、

png形式のファイルを開くと

ちゃんと挿入されました！

相変わらずキュートですねぇ～！！！

今回はここまでです！

このプログラムを使えば、

入稿の際に

「指定したファイル形式と違う！！」

などのチェックが大幅に楽になります！

ぜひ使ってみてくださいね！

入稿と言えば、

画像のサイズも大事ですよね！

ということで次回は今回のプログラムを

画像ファイルのバイト数によって

画像を挿入するか判断するプログラムに進化させます！

お楽しみに～♪