Clever-Excel-Forum

Normale Version: Bilder mit URL - nur URL anzeigen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo,
ich habe bei Google immer nur die umgekehrte Lösungen gefunden - URL soll Bild anzeigen.

Ich jedoch, suche es genau umgekehrt. Ich bekomme Bilder von einem Server, welche eine Hyperlink - URL beinhalten. 
Diese kopiere ich in eine Exceltabelle - doch es soll mir kein Bild angezeigt werden, sondern die reine Link, da später alles in eine CSV umgewandelt werden muss, und dann die Bilder weg wären.
So benötige ich nur den LINKTEXT.

Über "Hyperlink" bearbeiten und dann den Text einzeln kopieren und dann einzeln einfügen; den Weg kenne ich... Aber das ist bei 100ten von Daten und Bildern sehr, sehr aufwendig.

Kenn jemand eine einfachere Methode?

Wäre klasse Smile

Liebe Grüße
Hallo,

was genau kopierst Du ins Tabellenblatt: das Bild oder die URL als Text ?

Wenn Text, klick mal mit links auf den Text und halte dabei die Maustaste etwas länger gedrückt. Dadurch wird der Link nicht ausgeführt und die direkte Zellbearbeitung ermöglicht. Dann Rechtsklick -> Hyperlink entfernen.

Wenn Bild, fehlt mir eine genaue Beschreibung, wo sich der Link befindet ...
Hallo,
vielen Dank für die rasche Antwort  :19:

Der Link befindest sich IM Bild, das eingefügt wurde.

Also, klicke ich auf das Bild, hat dieses eine Verlinkung zum Server und zeigt dann im Browser das Bild an.
Ebenfalls kann ich mit rechtsklick auf das Bild die Hyperlink entfernen oder bearbeiten.

Unten mal ein Anhang...
Hallöchen,

so:
Code:
Sub Makro1()
    'mit select, Ausgabe des Thumbs und des Links in A1 und B1
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Cells(1, 1) = Selection.ShapeRange.AlternativeText
    Cells(1, 2) = Selection.ShapeRange.Item(1).Hyperlink.Address
    'ohne select, Ausgabe des Thumbs und des Links in A2 und B2
    Cells(2, 1) = ActiveSheet.Shapes("Picture 1").AlternativeText
    Cells(2, 2) = ActiveSheet.Shapes("Picture 1").Hyperlink.Address
End Sub