画像をExcelにひたすら貼り付けるマクロ - とあるSIerの憂鬱
背景 画面のハードコピーを大量に取得した後、Excelに貼り付けて『・・・を実行した』とか『・・・が確認できた』のような説明を記載する苦行がある。説明を書くのは自動化できないが、ハードコピーを貼り付ける手間は自動化により省けるよね、ということで。 仕様(大雑把) ファイル選択ダイアログで貼り付けるファイルを複数選択する リサイズはしない 貼り付けの際に、説明を記述するために2行ほど空けさせる マクロ 'PastePicturesマクロ Sub PastePictures() Dim filenames As Variant, filename As Variant filenames = Application.GetOpenFilename( _ FileFilter:="画像ファイル,*.png;*.jpg", _ MultiSelect:=True) If IsArray(filen
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
宅建を取得して良かったと思うことを教えてください - All About Good Answers
https://blogs.oracle.com/oracle4engineer/post/entry/column_it_workshop
