PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBASe bilde når jeg ta en mouseover over en URL- Hjelp....Se bilde når jeg ta en mouseover over en URL- Hjelp....
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2018-06-14 12:35
 
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
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBASe bilde når jeg ta en mouseover over en URL- Hjelp....Se bilde når jeg ta en mouseover over en URL- Hjelp....

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter