Bildeinfügen08
amintire
ich wieder ;)
kurze Frage, wie beziehe ich bei dem Code mehrere Ordner mit ein ?
Mit Zeichen & bringt er mir dann einen Fehler, bzw. markiert "If Dir(StBild) = "" Then" gelb....
Option Explicit ' Variablendefinition erforderlich
Public Const StOrdner As String = "M:\Bilder\0001-1000\"
Dim StBild As String ' Variable für Bildname
Sub Bild_holen()
Bilder_loeschen "", ActiveSheet.Name ' vorhandene Bilder löschen
StBild = StOrdner & ActiveCell
If Dir(StBild) = "" Then Exit Sub
' Bildhöhe des eingefügeten Bildes ermitteln, erstellt von Nepumuk
Bildgroesse_auslesen StBild
' einfügen ohne select von Bert Körn
' Ausdruck.AddPicture(FileName, Verknüpfung, in Mappe speichern,
' Pos. Links, Pos. Oben, Breite, Höhe)
' erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
' zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts
With ActiveSheet.Shapes.AddPicture(StBild, True, True, ActiveCell.Offset(0, 1).Left, _
ActiveCell.Offset(0, 0).Top, DoBreite * DoBildhoehe / DoHohe, DoBildhoehe)
' Makro das bei Klick auf dem Bild ausgeführt wird, Makro im Modul BeiKlick
.OnAction = "Bild_BeiKlick"
.Name = "PIC " & ActiveCell.Address(False, False)
End With
End Sub
Lieben Gruß Amina