エクセルのマクロの事で教えていただきたいのですが・・・

質問

マクロ初心者＆質問をするのも初めてなんですが・・・
今、会社でマクロを使って、エクセルの見積もりや納品書を作るように言われているのですが・・・
共有ファイル内にある印鑑（GIF画像）を選択して取り込めるように・・・と言われています。
試してみた方法としては、マクロを実行すると、リストボックスの中から選択してOKのコマンドボタンをクリックすると、選択した印鑑がセルの上に表示されるようにする。や、ユーザーフォームの中にコマンドボックスを必要な人数分作りその一つ一つに、指定した画像が張り付くようにしたつもりなんですが、記述に間違いがあるのか？うまく行かずに困っています＞＜
リストボックスや、ユーザーフォームを使わずに、一つの設定だけだと成功するのですが・・・
何か、初心者にもできて簡単な方法があれば教えていただけると幸いです。

回答No.2

papayuka

#1さんもおっしゃってますが、シートやブックの状況とマクロコードを載せて質問された方が良いでしょう。
Excelマクロは初心者と言っても質問内容からプログラム初心者とは思えませんけど、、、

下記はファイル選択ダイアログを出して画像を指定する例です。

Sub Test()
Dim fName, sh As Shape
　fName = Application.GetOpenFilename("判子画像 (*.gif), *.gif")
　If fName = False Then Exit Sub
　　For Each sh In ActiveSheet.Shapes
　　　　If sh.TopLeftCell.Address = "$A$1" Then sh.Delete
　　Next sh
　　With ActiveSheet.Range("A1")
　　　　 ActiveSheet.Shapes.AddPicture fName, False, True, _
　　　　　　　　　　　　　　　.Left, .Top, .Width, .Height
　　End With
End Sub

お礼

回答ありがとうございました。
今回は、マクロが少し分かる方にアドバイス頂いて教えていただいた（例）を参考にさせて頂いて、自己解決する事が出来ました。
まだまだ分からない事がたくさんあるので、また質問させて頂く機会もあると思いますが、次回からはもう少し明確に、マクロコード等を載せて、質問させて頂くようにします。
ご意見ありがとうございました。

回答No.1

popesyu

初心者にもできて簡単な方法とはマクロなどを使わずに手作業で毎回毎回挿入するファイルを選択させるということになりますが。
それを自動化（リストボックスなどで選択して実行ボタンを押すだけとか）したいという要望なんですよね？？
まずはもう少し勉強するしかないですし、ある程度どの辺が問題かが分かればその該当する部分のコードのみをこういう質問サイトに載せれば的確な回答が返ってくることはあります。

ただその際には今回のような第三者にはさっぱり状況が理解できないような書き方ではなく、分かりやすく情報を提供しなければなりません。
まず成功するというコードを示す。
次にうまく行かずとはどううまく行かないのかを示す。
さらにどうしたいのかも示す。

どうしても向いていないと思われるのなら根本的に別のアプローチをするしかないでしょう。出来ないものは出来ませんと断って外注にかけるか、もう少し分かる人に依頼するとか。

お礼

回答ありがとうございます。
今回の、質問の件に関しては、エクセルに詳しい方に聞いて、自己解決する事が出来ました。
まだまだ分からない部分がたくさんあるので、また質問させて頂く事もあるかと思いますが、次回は質問の内容や分からない部分をもっと明確に質問するようにします。
ご意見、ありがとうございました。