| |
横から失礼します。
> 画像が保存されているフォルダ(仮に、C:￥画像としてます)を開き、
> その後、手動で画像フォルダに保存した画像を選択すると、
> 任意のセルに、画像のパス名(C:\画像\〇〇.jpg)を表示することは出来ますでしょうか。
のところは、こんな感じでどうですか？
Sub sample()
Const myFolder As String = "画像のフォルダ名をここに書く"
Dim fname
Dim currentfolder As String
'current folderを退避
currentfolder = CurDir
'folderを画像フォルダに変更
ChDrive myFolder
ChDir myFolder
fname = Application.GetOpenFilename("画像 Files (*.jpg), *.jpg")
If TypeName(fname) = "Boolean" Then Exit Sub
ActiveCell.Value = fname '★ ActiveCellに画像のファイル名を書き込む
'current folderを復旧
ChDrive currentfolder
ChDir currentfolder
End Sub
★のところですが、まず、ハイパーリンクを張る作業をよく観察して下さい。
その機能で欠けているのか何かをよく考え、
本当に必要な機能だけ追加なり修正なりするように考えてください。
また、マクロの作成には、既にご指摘のとおり、まずマクロ記録をとって、
その意味を調べたりする作業を自分でして下さい。
かなりの部分がそのまま使えたりするはずです。
|
|
γ
- 14/7/2(水) 21:34 -
