Sayfada Bulunan Image Nesnesine Url ile Resim Yansıtmak (64 bit)

[bebar]

Merhaba,
Aşağıda belirtiğim kod ile, tıkladığım hücrenin url adresinde bulunan resmi, sayfa içinde bulunan image nesnesine yansıtabiliyordum.
Fakat
offise 365 32 bit ile kod çalışıyor, 64 bit excelde çalışmıyor.
ilk paylaştığım kodda bit hatası alıyorum
epey araştırdım fakat çözümünü bulamadım.
konu ile alakalı yardımcı olursanız memnun olurum.
teşekkürler.

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long

Public Function Rsm(ByVal url As String) As Picture
Dim IPic(15) As Byte
CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), Rsm
End Function

Private Sub Image1_Click()
Image1.Visible = False
Image1.Picture = LoadPicture("")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Image1_Click
Image1.Picture = LoadPicture("")
Exit Sub
ElseIf Target.Address = "$A$" & ActiveCell.Row Then
Image1.Picture = LoadPicture("")
Image1.Visible = True
Image1.Top = ActiveCell.Top
Image1.Left = ActiveCell.Offset(0, 2).Left
End If
On Local Error Resume Next
stn = ActiveCell.Offset(0, 7).Value
Image1.Picture = Rsm(stn)
End Sub

 

[bebar]

Tekrar merhabalar,
Konu ile alakalı yardımcı olabilcek yada alternatif bir öneride bulunma şansınız yok mudur?

 

[Korhan Ayhan]

Merhaba,

Linkte bir çözüm yolu paylaşılmış. Kendinize uyarlayıp deneyiniz.