PDA

Vollständige Version anzeigen : VBA Bild link auf neues Tabellenblatt


Plausibel
01.09.2017, 07:32
Hallo zusammen,

ich habe folgenden Code zum einfügen eines Bildes in ein neues Tabellenblatt.

Dim intErsteLeereZeile As Long
With ActiveSheet
intErsteLeereZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Name = Me.txt_name_tabellenblatt

If bild.Tag <> "" Then
' ausgewähltes Bild ins Tabellenbltt einfügen
.Pictures.Insert (bild.Tag)
' bezieht sich auf das eingefügte Bilde
With .Pictures(.Pictures.Count)
' Position Oberkante = Oberkant erste leere Zeile
.Top = .Parent.Rows(intErsteLeereZeile).Top
' Position links = Spalte 34 Linke Kante
.Left = .Parent.Columns(1).Left
End With
End If

Jetzt möchte ich noch irgendwie einen Link erstellen auf ein in der Userform ausgewähltes Tabellenblatt

Hat jemand eine Idee?

silcono
01.09.2017, 07:56
Hier, das könnte dir weiterhelfen:

https://msdn.microsoft.com/de-de/library/office/ff822490.aspx

Grüße
Silcono

Beverly
01.09.2017, 07:58
Hi,

nach diesem Prinzip:

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(ActiveSheet.Shapes.Count), Address:="", SubAddress:="Tabelle2!A1"


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Plausibel
01.09.2017, 08:21
Super ich danke euch =)