Office: Excel 2003: Bild statt Hyperlink anzeigen

Hajo_Zi · 23. Juli 2011

Hallo Josef,

alle meine Beispiele sollten keine Fehler auslösen falls ein Bild nicht gefunden wird. In welchem Beispiel wird ein Fehler ausgelöst?

Walbi · 2. September 2012

Hallo ich habe auch Excel 2010 und bekommst auch mit den Vorlagen von der Hajo seite nicht hin. Mich interessiert genau die Datei Link_Bild.xls die in 2010 leider nicht funktioniert. 1004 Fehlermeldung "die insert eigenschaft des pictures Objekt kann nicht zugeordnet werden". Kann mir jemand helfen. vg Walbi

chris-kaiser · 2. September 2012

Hi

Update 03.09.2012

Die Bilddateien zwischenspeichern, Pfad
c:\tmp unbedingt dabei anpassen *wink.gif*

Code:

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
'****************************
'Pfad anpassen!!!!!!!!!!!!!!!!!!
Private Const StrPicPath = "C:\tmp\TmpPic.jpg"
'****************************

Private Function Get_Pic(StrPicUrl As String) As Boolean
Dim lngReturn As Long
If Dir$(StrPicPath) vbNullString Then Call Kill(StrPicPath)
lngReturn = URLDownloadToFile(0&, StrPicUrl, StrPicPath, 0&, 0&)
If lngReturn 0 Then
MsgBox "Downlad von " & StrPicUrl & " fehlgeschlagen"
Else
Get_Pic = True
End If
End Function

Sub bilder_in_A_von_hypertext_in_B()
Dim sPath As String
Dim i As Long
On Error GoTo msg
Application.ScreenUpdating = False
For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row 'ich starte ab Zeile 3 'ggf ändern
sPath = Cells(i, 2).Value
If Left(sPath, 4) = "http" Then
Call bilder(i, sPath)
End If
Next
Application.ScreenUpdating = True
Exit Sub
msg:
MsgBox Err.Number & " " & i
End Sub

Sub bilder(iRow As Long, sPath As String)
Dim objShape As Object
If Get_Pic(sPath) Then
Set objShape = ActiveSheet.Pictures.Insert(StrPicPath)
Call Kill(StrPicPath)
With objShape
.Left = Cells(iRow, 1).Left
.Top = Cells(iRow, 1).Top
If .Width > .Height Then
.Width = Cells(iRow, 1).Width
Else
.Height = Cells(iRow, 1).Height
End If
End With
Set objShape = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 3. September 2012

Hallo Walbi,

auf meiner Seite gibt es viele Beispiele zum Bild einfügen. Du mußt schon schreiben welches einen Fehler auslöst.

hkoepp63 · 6. September 2019

Hallo Zusammen,
Ich habe das leider nicht hinbekommen. *upps
Vielleicht liegt es daran, daß ich keinen link mit einer Endung ,jpg oder .png habe sondern eine Abfrage habe. oder mein Link nicht in B1 sondern in C11 steht...

Hier ist mein Vorhaben:
Ich habe einen Link auf eine externe Bildquelle (WMS Aufruf) in Zelle C11. Der Link wird aus einer Formel erstellt, da sich die Bildquelle anhand einer Adresse ändert, also dynamisch ist. Das Bild soll im Bereich von B11:F26 dargestellt werden. Das Bild soll dann automatisch (oder mit Makroaufruf) in dem Formular nicht mehr als 8,62 x 15,8 cm ausfüllen.
Ich hoffe ihr könnt mir helfen
https://www.geodaten-mv.de/dienste/g...MAT=image/png&

Ich Danke Euch im Voraus für die Hilfe.

Office: Excel 2003: Bild statt Hyperlink anzeigen

Excel 2003: Bild statt Hyperlink anzeigen

Excel 2003: Bild statt Hyperlink anzeigen

Excel 2003: Bild statt Hyperlink anzeigen

Excel 2003: Bild statt Hyperlink anzeigen - Similar Threads - Excel 2003 Bild

Funktion aus Excel 2003 in 2019 gesucht

Excel 2003 öffnet externe Hyperlinks nicht mehr

Makro in Excel 2003 funktioniert nicht mehr

UserForm Textbox als Hyperlink Excel 2003

Excel 2003: csv-Import von Volksbank

EXCEL 2003 - Summe bilden je nach Differenz von anderen Zellen

[EXCEL 2003] - VBA - Automatisiert Bilder einfürgen ber VBA