こちらでマクロのコードを書いてもらったのですが、

質問

こちらでエクセルのコードを書いてもらい、そのコードを貼り付けてやってみたのですが、うまくいってるのでしょうか？

書いてもらったコードが
(1)シートタブを右クリックし「コードの挿入」からVBEを開き、
以下のVBAコードを貼り付ける。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
　　UserForm1.Caption = Target.Range.Text
　　UserForm1.PictureSizeMode = fmPictureSizeModeZoom
　　UserForm1.Picture = LoadPicture(Target.ScreenTip)
　　UserForm1.Show
End Sub

(2)VBEのメニューより「挿入」→「ユーザーフォーム」でフォームを作成し、
フォームを右クリックしてコードの表示を選択。
初期で入力されているコードを全て削除したのちに、以下のコードを貼り付け。
VBEを「×」で閉じる。

Option Explicit
'Windows API宣言
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
' フォームをリサイズ可能にするための設定
Public Sub FormSetting()
　　　　Dim result As Long
　　　　Dim hwnd As Long
　　　　Dim Wnd_STYLE As Long
　　　　hwnd = GetActiveWindow()
　　　　Wnd_STYLE = GetWindowLong(hwnd, GWL_STYLE)
　　　　Wnd_STYLE = Wnd_STYLE Or WS_THICKFRAME Or &H30000
　　　　result = SetWindowLong(hwnd, GWL_STYLE, Wnd_STYLE)
　　　　result = DrawMenuBar(hwnd)
End Sub
Private Sub UserForm_Activate()
　　　　Call FormSetting
End Sub

(3)任意のセル（例えばA1セル）に任意の文字を入力し、ハイパーリンクを作成します。
セル参照の入力はリンクを挿入したセルのアドレス「A1」とし、
ヒント設定にて表示させたい画像のパスを設定します。
対応しているファイル形式は（bmp・dib・gif・jpg・wmf・emf・ico・cur）になります。

作成したリンクをクリックするとウィンドウで画像が開きます。
リサイズ可能にしているため、大きさは変更できますが、開いた時の初期サイズは
(2)で作成したユーザーフォームのサイズになります。

以上になるのですが、上記のを実行して、A1をクリックしたら開きたい画像がフォトビューアーで開き、A1の下あたりに、添付画像のように別のA1と書かれたウィンドウが開きます。

本当はこのA1と書かれた所に開きたい画像が表示されてるはずなのでしょうか？

回答No.1

ubku · ベストアンサー

(1)の4行目のコードを下記のように書き換えてください。

UserForm1.Picture = LoadPicture(Target.ScreenTip)
↓
UserForm1.Picture = LoadPicture(Target.Address)

多分これであなたが思っている動作になります。