|
γさんへ
何とか思い通りに出来ました。ありがとうございました。
不勉強なため、不透明な質問となりましたことを
ご容赦願います。
▼γ さん:
>焦点を絞って質問して下さい。
>
>ActiveSheet.Pictures.Insert(strFolder & Me.ListBox1.List(i)).Select
>のところが不明なのですか?
> With ActiveSheet.Pictures.Insert(Filename:=myFileName)
> .Top = ActiveCell.Top
> .Left = ActiveCell.Left
> End With
>を参考にして書き換えるということですか?
>フォルダ名と("\"を間にはさんで)ファイル名を連結したパス名を
>引数に与えればよいと思います。
>そして、
>画像のtop位置を アクティブセルのtop位置に合わせ、
>画像のLeft位置を アクティブセルのLeft位置に合わせるという処理を
>すればいいわけですよね。
>
>ActiveCellが正しくセットされているのか、
>そもそもどこにセットしたいのか、など説明がないので、
>さっぱり解りません。そこは問題ないんですね?
|
|