Hei- og hjelp!
jeg ønsker å se bilde når jeg ta en mouseover over en URL
Får til å gjøre dette når URL-adressen er i "HTTP:"- format.
Problemet er at bildene jeg skal bruk er lagret på min data, altså med URL-adresse som starter på
"C:/" noen som vet hvordan jeg får til å endre dette på følgende kode:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ok As Boolean
Dim Bilde As String
Dim r As Long
Dim c As Long
Dim x As Integer
Dim filtype As String
Dim filtyper As String
Dim Faktor As Double
Faktor = 2
r = Target.Row
c = Target.Column
If Target.Rows.Count > 1 Then Exit Sub
Bilde = Trim(Target.Value)
Ok = True
If Len(Bilde) < 8 Then Ok = False
If LCase(Left(Bilde, 7)) <> "http://" And LCase(Left(Bilde, 8)) <> "https://" Then Ok = False
filtyper = "*.jpg*.jpeg*.png*.tiff*.bmp*.gif*"
filtype = ""
x = Len(Bilde)
While x > 7 And filtype = ""
If Mid(Bilde, x, 1) = "." Then
filtype = LCase(Mid(Bilde, x))
End If
x = x - 1: Wend
If InStr(1, filtyper, "*" & filtype & "*") = 0 Then Ok = False
With Cells(r, c)
If Not (.Comment Is Nothing) Then .Comment.Delete
If Ok = True Then
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.UserPicture Bilde
.Comment.Shape.Height = .Comment.Shape.Height * Faktor
.Comment.Shape.Width = .Comment.Shape.Width * Faktor
End If
End With
End Sub
|
|