マクロ練習中です。
今日は、これを作るだけで半日かかりました! 今まで仕事の話は、あまりしてこなかったんですけども、たまにはね。ちょっと目新しいことをやってみたんで、記録しておきます。今日は、エクセルで大量の画像を使って帳票を作る必要が出まして、今までさりげな~く回避してきた「マクロ」に挑戦することになりました。 多分こういうのは、教えてもらって出来るもんでもないような気がしたんで、取り敢えずネットで検索してみる(^-^;作りたかったのは、画像ファイルのある場所を指定すると、指定したセルに画像とファイル名を貼り付けてくれるというもの。(正確に言うと、先にファイル名を入れるセルを選んでおいて、マクロを実行するとどのファイルを使うか聞かれるんで、画像を選ぶとファイル名を記述、さらに画像を指定しておいたサイズに縮小して、ファイル名の10行上に貼り付けてくれるという代物です。) Sub 画像貼り付け() Dim myFile As String 'ファイルから画像を挿入する myFile = Application.GetOpenFilename("画像 ファイル, *.jpg;*.bmp", , "画像ファイルを選択して下さい。") If myFile = "False" Then Exit Sub ActiveCell.Value = Dir(myFile) 'アクティブセルに画像ファイル名を記述 ActiveCell.Offset(-10, 0).Activate '10行上のセルを選択 ActiveSheet.Pictures.Insert(myFile).Select 'アクティブセルに画像を挿入 Selection.ShapeRange.Height = 100# '画像の縦サイズを100にするEnd Subめっちゃ短い!でもこれだけ書くのに、正味半日使った!どんだけ暇な職場やねん・・・というのは、言わないお約束。もしこれを目に止めた方がおられても、あんまり細かいことは、聞かないで下さいね?超初心者なんで(笑)