[[20040914160319]]　『写真にマクロでハイパーリンクを設定したい』（TY）　ページの最後に飛ぶ

『写真にマクロでハイパーリンクを設定したい』（TY）

[図の挿入で挿入した写真にマクロでハイパーリンクを設定したいのですが…]

シート上に挿入した写真に元の写真ファイルのハイパーリンクをつけたいのですが、写真が大量にある為、１枚ずつの設定はものすごく大変です。そこで、マクロを使い効率的に作業を行いたいのです。ボタンを押して図の挿入のダイアログボックスが開き、ファイルを選んでＯＫで、特定の位置に写真を配置するところ迄は出来たのですが、ハイパーリンクの付け方がわかりません。どなたか助けて頂けないでしょうか？宜しくお願い致します。私は、マクロについては、記録ボタンを使い、それに若干の手を加えて使える程度です。その程度の知識の私にも、わかるように、ご教授願えれば幸いです。

 ハイパーリンクの設定をマクロの記録すれば参考になると思います。

  (INA)

ご教授ありがとうございます。でも、マクロの記録を使うと、
『ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=あどれす』
となっていました。『あどれす』の部分を図の挿入の時に『ダイヤログボックスで選んだファイル名』（変数？）という意味の書き方がわかりません。宜しくお願い致します。

 >ボタンを押して図の挿入のダイアログボックスが開き、
 >ファイルを選んでＯＫで、特定の位置に写真を配置するところ迄は出来たのですが、　
 このマクロは出来ているのですよね？
 このファイルのパスを変数に格納して、アドレスに指定すればよいと思います。

  (INA)

出来ている（自分では思っている）マクロの部分はこの様なかんじなんですが、

 Application.Dialogs(xlDialogInsertPicture).Show
 Selection.ShapeRange.LockAspectRatio = msoTrue
 Selection.ShapeRange.Width = 328
 With Selection
 .Top = Range("B4").Top
 .Left = Range("B4").Left
 End With
selectionが出てくるだけで、ファイルのパスとおぼしきものがわかりません。何度もすいませんが、（INA）さんが頼りなのです。宜しくお願い致します。

（TY）

 >図の挿入のダイアログボックス
 組み込みダイアログを使っていたのですね。

 GetOpenFilename メソッド を使うとパスが取得できます。

 Sub Sample()
 Dim myPath As String

    myPath = Application.GetOpenFilename( _
            "画像 ファイル (*.jpg; *.jpeg),*.jpg; *.jpeg", , _
            "図を挿入します。画像ファイルを選択して下さい。")

    If myPath = "False" Then Exit Sub

    With ActiveSheet.Pictures.Insert(myPath)
        .ShapeRange.LockAspectRatio = msoTrue
        .ShapeRange.Width = 328
        .Top = Range("B4").Top
        .Left = Range("B4").Left
        .Select
    End With

    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
    Address:=myPath

    ActiveCell.Activate
 End Sub

 　　(INA)

（INA）さんありがとうございます！！おかげで、作業が大幅に楽になりました。

（TY）

コメント返信：

[ 一覧(最新更新順) ]

[[20040914160319]] 『写真にマクロでハイパーリンクを設定したい』（TY） ページの最後に飛ぶ

[[20040914160319]]　『写真にマクロでハイパーリンクを設定したい』（TY）　ページの最後に飛ぶ