Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40018 / 76732 ←次へ | 前へ→

【41818】Re:画像につけられたリンクを取得したいので...
回答  Kein  - 06/8/23(水) 18:01 -

引用なし
パスワード
   こちらは Excel2000 を使ってますが、以下のコードでうまくいくようです。

Sub Test_Hplk()
  Dim Pic As Object
  Dim AdSt As String
 
  If ActiveSheet.Pictures.Count = 0 Then
   MsgBox "画像が挿入されていません", 48
   Exit Sub
  End If
  For Each Pic In ActiveSheet.Pictures
   On Error Resume Next
   AdSt = Pic.ShapeRange.Item(1).Hyperlink.Address
   If AdSt <> "" Then Debug.Print Pic.TopLeftCell _
   .Address(0, 0) & " : " & AdSt
   If Err.Number <> 0 Then Err.Clear
   On Error GoTo 0
  Next
  If AdSt <> "" Then
   With Application.VBE.MainWindow
     .Visible = True
     .SetFocus
   End With
   SendKeys "^(g)", True
  Else
   MsgBox "ハイパーリンクのアドレスがありません", 48
  End If
End Sub
0 hits

【41797】画像につけられたリンクを取得したいので... koma 06/8/23(水) 9:21 質問
【41799】Re:画像につけられたリンクを取得したいの... koma 06/8/23(水) 10:03 発言
【41800】Re:画像につけられたリンクを取得したいの... Blue 06/8/23(水) 10:06 回答
【41802】Re:画像につけられたリンクを取得したいの... Blue 06/8/23(水) 10:26 回答
【41815】Re:画像につけられたリンクを取得したいの... koma 06/8/23(水) 16:34 発言
【41816】Re:画像につけられたリンクを取得したいの... Blue 06/8/23(水) 16:52 発言
【41818】Re:画像につけられたリンクを取得したいの... Kein 06/8/23(水) 18:01 回答
【41819】Re:画像につけられたリンクを取得したいの... koma 06/8/23(水) 18:31 お礼

40018 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free