Office: (Office 2010) Bild anzeigen per Hyperlink aus anderem Feld

Markus Nbg · 18. September 2012

Hallo zusammen ich habe jetzt stundenlang mit Hilfe von Google eine Lösung gesucht aber nichts gefunden.

Ich lasse mir aus eine SQL-MaschinenDatenbank eine ExcelFile (Vorlage ohne Daten) füllen.
In A5 lasse ich mir zum Beispiel den Link eintragen wo laut der DB das Maschinenbild zufinden ist.

z.B.

T:\Info\Bilder\Anlage15.jpg

jetzt möchte ich das in B6 das Bild der Anlage 15 angezeigt wird.

Das Formular mit den Daten und dem Bild wird als Anlagendatenblatt ausgedruck.
Es muss leider in Excel sein da noch auserhalb der SQL-DB ein paar Informationen vor dem Druck eingetippt werden müssen.

Danke fürs lesen hoffe Ihr versteht was ich benötige

Markus

:)

R J · 20. September 2012

Hi Markus,

Bilder kannst Du so anzeigen. Anpassungen an Deine eigenen Bedürfnisse musst Du aber noch vornehmen...
Code:

Sub ZeigeBild()

Dim pic As Picture
Set pic = ActiveSheet.Pictures.Insert("D:\Bilder\Blumen\Butterfly.jpg")
pic.Top = Range("B2").Top
pic.Left = Range("B2").Left
Set pic = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Markus Nbg · 20. September 2012

Hallo Ralf

Danke für die Hilfe

entweder stehe ich jetzt auf dem Schlauch oder ....

der Inhalt des Linkes ändert sich immer.

Sobald ich in der SQL DB auf einer Anlage bin überträg die DB den Link in das Excel File und genau das Bild soll dann angezeigt werden, so bleibt der Link ja statisch.

Ist aber schon einmal ein Anfang für mich.

Markus

R J · 20. September 2012

...lach... der darf sich ruhig ändern...*wink.gif*

Code:

Set pic = ActiveSheet.Pictures.Insert(Range("A1").Value & ".jpg")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...oder auch ActiveCell.Value... das Feintuning musst Du schon allein machen. Ich kenne ja Deine Datei nicht...*Smilie

Markus Nbg · 20. September 2012

Hallo Ralf
danke für die Info in Excel bin ich nicht so bewandert.
Das Excel File ist nichts besonderes es sind einfach ein paar Zellen die mit Namen benannt sind.

Füllen tue ich das Excel-File aus SQL mit dem Code

Code:

If @x = 'fillExcel'
begin
if @i = 1
select
FindSQL as Filename
from T_Filter
where FieldName = 'B_Ummeldung' and
FindSQL is not null
if @i = 2
select
Anr as AnlageNr,
ArtikelNr as InventarNr,
Anlage,
Funktion,
KST as KstAlt,
Anschaffungskosten as Kaufpreis,
Stichwort,
StichwortHyperlink as link

from (dbo.vwAnlageArtikel as a inner join vwID as v on a.NrAnlage = v.id)
inner join A_StichwortAnlage as SA on a.NrAnlage = sa.NrAnlage
where Stichwort = 'Anlagenbild'
end
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also habe ich in meinem ExcelFile eine Zelle die heisst "Link" in das das Ergebnis aus " StichwortHyperlink as link" eintragen lasse .
Jetzt soll in dem Excel-File genau das Bild mitangezeigt werden.

Hoffe ich konnte es jetzt richtig beschreiben.
Danke nochmals
Markus

Markus Nbg · 20. September 2012

Hallo,ich Poste mal meine Lösung mit der ich jetzt soweit klar komme

Code:

Private Sub autpen()
ZeigeBild
End Sub

Sub ZeigeBild()
Dim pic As Picture
Set pic = ActiveSheet.Pictures.Insert(Range("link").Value) 'im Link ist schon .jpg oder .tif ec
pic.Top = Range("E10").Top 'obere Kante Bild
pic.Left = Range("E10").Left 'linke Kante Bild
pic.ShapeRange.Height = 100# 'Bildbreite
pic.ShapeRange.Width = 120# 'Bildhöhe
Set pic = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Set pic = ActiveSheet.Pictures.Insert(Range("link").Value) 'im Link ist schon .jpg oder .tif ec

link ,so heisst mein Feld in dem File könnte auch nur die Zeile z.B. A1 oder B25 ec. eingetragen sein, halt die Stelle wo der Link eingetragen ist

DANKE Ralf deine 2 Antworten haben weitergeholfen

Office: (Office 2010) Bild anzeigen per Hyperlink aus anderem Feld

Bild anzeigen per Hyperlink aus anderem Feld

Bild anzeigen per Hyperlink aus anderem Feld

Bild anzeigen per Hyperlink aus anderem Feld

Bild anzeigen per Hyperlink aus anderem Feld - Similar Threads - Bild anzeigen Hyperlink

listbox wählt namen- Bild in Userform (Image) anzeigen

Excel: Bilder erzeugen aus Bildname oder Hyperlink und in Nachbarzelle anzeigen

Bild über sverweis anzeigen

Excel 2003: Bild statt Hyperlink anzeigen

Bild laden beim Anzeigen

Bild aus dynamischer URL in Access (Bericht oder Formular) anzeigen

Anzeige Bilder aus Hyperlink