Bild einfügen und Hyperlink dazu erstellen

Forumthread: Bild einfügen und Hyperlink dazu erstellen

02.02.2015 11:22:31

Andy

Hallo zusammen,
ich lesen mit dem folgenden Schnipsel Fotos aus einem Ordner aus; anschließend werden diese _ verkleinert:


If Dir(PfadUndDateiname)  "" Then
'Datei gefunden
.Cells(i, 4).Select
ActiveSheet.Pictures.Insert(PfadUndDateiname1).Select
Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
Else
'Rückmeldung in Tabelle.
.Cells(i, 4).Value = "kein Foto"
End If

Dazu möchte ich gerne, auf dem soeben ausgelesene Foto einen Hyperlink zu PfadUndDateiname setzen.
Wie ist dies möglich?
Ich habe es mal versucht mit dem Macrorekorder aufzuzeichnen, jedoch verwendet Excel dann eine _ laufende Bildnummer:


ActiveSheet.Shapes.Range(Array("Picture 74")).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
"F:\Pfad\Foto1.jpg"

Wer kann mir hier weiterhelfen? Gerne auch Anregungen zur Optimierung vom Codeschnipsel. Besteht auch die Möglichkeit das Bild immer in einer festen Höhe anzuzeigen: zB. Höhe = 200px ?
Gruß Andy

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild einfügen und Hyperlink dazu erstellen

02.02.2015 19:33:41

Franz
Lösung

03.02.2015 10:46:26

Andy

AW: Bild einfügen und Hyperlink dazu erstellen

02.02.2015 19:33:41

Franz

Hallo Andy,unter
https://www.herber.de/bbs/user/85105.xls
könntest du aus dem Code vielleicht etwas entnehmen bzw. anpassen.
Gruß
Franz D.

Lösung

03.02.2015 10:46:26

Andy


Dim InsertFoto as Picture
If Dir(PfadUndDateiname)  "" Then
'Datei gefunden
.Cells(i, 4).Select
Set InsertFoto = ActiveSheet.Pictures.Insert(PfadUndDateiname)
With InsertFoto
.Height = 125
End With
With ActiveSheet
.Hyperlinks.Add Anchor:=.Shapes(InsertFoto.Name), Address:=PfadUndDateiname
End With
Else
'Rückmeldung in Tabelle.
.Cells(i, 4).Value = "kein Foto"
End If

Infobox / Tutorial

Bilder in Excel verlinken und Hyperlinks erstellen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um ein Bild in Excel zu verlinken und einen Hyperlink dazu zu erstellen, folge diesen Schritten:

Bild einfügen: Füge das Bild in die Excel-Tabelle ein. Du kannst dies manuell über Einfügen > Bilder machen oder ein VBA-Skript verwenden. Beispiel für eine VBA-Implementierung:

Dim InsertFoto As Picture
If Dir(PfadUndDateiname) <> "" Then
   'Datei gefunden
   Set InsertFoto = ActiveSheet.Pictures.Insert(PfadUndDateiname)
   With InsertFoto
       .Height = 125 ' Höhe des Bildes festlegen
   End With
Else
   'Rückmeldung in Tabelle.
   Cells(i, 4).Value = "kein Foto"
End If

Hyperlink hinzufügen: Verwende den folgenden VBA-Code, um einen Hyperlink in das Bild einzufügen:

With ActiveSheet
   .Hyperlinks.Add Anchor:=.Shapes(InsertFoto.Name), Address:=PfadUndDateiname
End With

Bild anpassen: Du kannst die Größe und Position des Bildes nach Bedarf anpassen.

Häufige Fehler und Lösungen

Fehler: Bild wird nicht angezeigt: Stelle sicher, dass der Pfad zum Bild korrekt ist und das Bild existiert.
Fehler: Hyperlink funktioniert nicht: Überprüfe, ob der Hyperlink korrekt auf den Speicherort verweist. Der Address-Parameter muss den genauen Pfad zum Bild enthalten.
Fehler: Bildhöhe wird nicht übernommen: Achte darauf, die Höhe im Code richtig zu setzen. Beispiel: .Height = 125.

Alternative Methoden

Manuelles Hinzufügen eines Hyperlinks: Du kannst auch einen Hyperlink manuell hinzufügen, indem du mit der rechten Maustaste auf das Bild klickst und „Hyperlink“ auswählst. Gib dann den Pfad ein.
HTML-Bild einfügen mit Link: Falls du Excel in einer Webanwendung verwendest, kannst du das Bild mit HTML-Code einfügen:
```
<a href="PfadUndDateiname"><img src="PfadZumBild" alt="Bildbeschreibung"></a>
```

Praktische Beispiele

Beispiel 1: Wenn du ein Bild von einem Fotoalbum in Excel einfügen und verlinken möchtest, verwende den Pfad zu den Bildern in deinem Ordner:
```
PfadUndDateiname = "C:\Bilder\Foto1.jpg"
```
Beispiel 2: Du kannst auch mehrere Bilder einfügen und verlinken, indem du eine Schleife verwendest, um durch ein Array von Bildpfaden zu iterieren.

Tipps für Profis

Dynamische Links erstellen: Du kannst den Link dynamisch gestalten, indem du Zellenreferenzen verwendest, um den Pfad zum Bild zu ziehen.
Bilder in Zellen verlinken: Wenn du Bilder in spezifischen Zellen verlinken möchtest, kannst du die Top und Left Eigenschaften verwenden, um die Position des Bildes in der Zelle zu bestimmen.
```
With InsertFoto
  .Top = Cells(i, 4).Top
  .Left = Cells(i, 4).Left
End With
```

FAQ: Häufige Fragen

1. Wie kann ich ein Bild in Excel verlinken?
Du kannst ein Bild in Excel verlinken, indem du es einfügst und dann mit dem VBA-Befehl einen Hyperlink hinzufügst.

2. Kann ich mehrere Bilder gleichzeitig verlinken?
Ja, du kannst eine Schleife verwenden, um mehrere Bilder einzufügen und für jedes Bild einen Hyperlink zu erstellen.

3. Wie kann ich die Größe des Bildes ändern?
Die Größe des Bildes kann mit den Eigenschaften .Height und .Width im VBA-Code angepasst werden.

4. Was mache ich, wenn der Hyperlink nicht funktioniert?
Überprüfe den Pfad des Hyperlinks und stelle sicher, dass er korrekt und zugänglich ist.

Beliebteste Forumthreads (12 Monate)

Bild einfügen und Hyperlink dazu erstellen

Forumthread: Bild einfügen und Hyperlink dazu erstellen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Bilder in Excel verlinken und Hyperlinks erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread