Hey Leute,
ich möchte gerne ein VB Script in Excel schreiben, das Bilder über einen Link einfügt; das hat den Sinn, daß die Datei - im Moment ca. 80mb groß - durch das Einfügen über VB wesentlich kleiner wird.
Die Bilder der Produkte die eingefügt werden sollen liegen alle auf einem Netzlaufwerk in einer Freigabe. (Dateiname=Artikelnummer)
Über eine Textbox soll die Artikelnummer eingegeben werden und dadurch das Bild vom Netzlaufwerk aufgerufen und gleichzeitig geladen werden.
Ein Beispiel wie ich es jetzt habe: (statischer Link ohne Textbox Eingabe)
Private Sub Image2_Click()
Dim url
url = "C:\Ordner\Ordner\Bilder\Artikelnummer.jpg"
ActiveSheet.Pictures.Insert(url).Select
With Selection
.Top = Range ("F10").Top
.Left = Range ("F10).Left
.Width = Range ("F10:I10").Width
.Height = .Width * 2 / 3
End With
End Sub
Wie schaffe ich es das die Artikelnummer oben im Pfad durch die Zahl die in der Textbox eingegeben werden soll ersetzt wird und in weiterer Folge auch gleich das Bild zur passenden Zahl in das Excel geladen wird? (Die Bilder auf dem Share wurden nach der jeweiligen Artikelnummer benannt)
Ich hoffe ich konnte mein Anliegen einigermaßen verständlich beschreiben...
Bin sehr dankbar für jede Hilfe die ich von euch bekomme
LG Hannes
ich möchte gerne ein VB Script in Excel schreiben, das Bilder über einen Link einfügt; das hat den Sinn, daß die Datei - im Moment ca. 80mb groß - durch das Einfügen über VB wesentlich kleiner wird.
Die Bilder der Produkte die eingefügt werden sollen liegen alle auf einem Netzlaufwerk in einer Freigabe. (Dateiname=Artikelnummer)
Über eine Textbox soll die Artikelnummer eingegeben werden und dadurch das Bild vom Netzlaufwerk aufgerufen und gleichzeitig geladen werden.
Ein Beispiel wie ich es jetzt habe: (statischer Link ohne Textbox Eingabe)
Private Sub Image2_Click()
Dim url
url = "C:\Ordner\Ordner\Bilder\Artikelnummer.jpg"
ActiveSheet.Pictures.Insert(url).Select
With Selection
.Top = Range ("F10").Top
.Left = Range ("F10).Left
.Width = Range ("F10:I10").Width
.Height = .Width * 2 / 3
End With
End Sub
Wie schaffe ich es das die Artikelnummer oben im Pfad durch die Zahl die in der Textbox eingegeben werden soll ersetzt wird und in weiterer Folge auch gleich das Bild zur passenden Zahl in das Excel geladen wird? (Die Bilder auf dem Share wurden nach der jeweiligen Artikelnummer benannt)
Ich hoffe ich konnte mein Anliegen einigermaßen verständlich beschreiben...
Bin sehr dankbar für jede Hilfe die ich von euch bekomme
LG Hannes