VBA를 사용하여 이미지에 하이퍼 링크를 어떻게 추가합니까?

Question

Windows Server 2012의 GPO에서 실행되는 스크립트가 있습니다.

매우 간단하지만 이미지 주위에 하이퍼 링크를 추가하는 방법을 알 수 없습니다! 내가 가진이 꿈을 작동

objSelection.InlineShapes.AddPicture "linktoimage.html"

, 나는 이미지를 볼 수 있고 어떤 문제가 없다. 하지만이 이미지에 하이퍼 링크를 추가하면 사람들이 클릭하면 원하는 하이퍼 링크 위치로 이동하게됩니다. 나는 이미지를 추가하는 것이 하이퍼 링크를 추가하기를 바랄 뿐인 코드 라인 일 뿐이라는 것을 알고있다.

나는 회신을 바로 메모장 ++

봐 Excel에서이 작업을 수행 또는 종류의 아무것도하고 있지 않다.

감사합니다,

Answer 1

이이 말씀에 관한 것입니다 가정, 당신은

Option Explicit 

Sub LinkImageTest() 
    Dim oSelection As Selection 
    Dim oDocument As Document 
    Dim oShape As InlineShape 

    Set oSelection = Application.Selection 
    Set oDocument = oSelection.Document 

    Set oShape = oSelection.InlineShapes.AddPicture("https://yt3.ggpht.com/-Pde_zs2tuj0/AAAAAAAAAAI/AAAAAAAAAAA/iBq9KSwTTLk/s88-c-k-no-mo-rj-c0xffffff/photo.jpg") 

    oDocument.Hyperlinks.Add oShape, "http://www.microsoft.com" 

End Sub