第26回「好きな画像をエクセルに挿入するプログラム!!」
はい!どうも!つのかぼちゃです!
今回は
「好きな画像をエクセルに挿入するプログラム」
を書いていきます!
それではさっそくプログラムです!!
3行!!!
短いですね~!
では解説してきます!
Dim foldanonamae As String
→ VBAさん!foldanonamae は文字だよ!
foldanonamae = Application.GetOpenFilename
→エクスプローラーを開いて、フルパスを foldanonamae に代入してね!
Worksheets("Sheet1").Pictures.Insert(foldanonamae).Select
→「Sheet1」にフルパスが foldanonamae の画像(=選択した画像)を挿入してね!
以上です!
では実行してみましょう!
①エクスプローラーが開きましたね
②好きなファイルを選択!
すると~?
ドン!!!
つのかぼちゃの自画像が挿入されました!
キュートですね!!
はい!今回はここまでです!
おつかれさまでした!
次回は今回作成したプログラムを
画像のサイズやファイル形式によって挿入をはじくプログラムに進化させていきます!
ぶっちゃけ今回のプログラムじゃ
エクセルの挿入機能と同じですもんね!
ここから進化させていきましょう!!!