AW: Meint er nicht eher ein HG-Bild, Matze?! orT
29.05.2013 16:34:44
Matze
Hallo Marko,
Mit Logo als Hintergrund, damit kenne ich mich nicht mit aus. Da sollte Luc dir helfen können,
der hatte ja schon die richtige Vermutung was du haben wolltest.
Wenn du aber Bilder hast die du als Logo verwenden möchtest, kannst du diese in das selbe Verzeichnis einbinden wie die Datei. Mit folgenden Makro können diese dann an einer bestimmten stelle des Blattes eingefügt werden. Über (in diesem Code als Beispiel) die Zelle P8 kann per Dropdown der Name des Bildes ausgewählt werden, welche du einfügen möchtest:
Bilder im Format *.jpg im selben Ordner wie die Datei speichern.
Code ab hier in das Blatt kopieren in dem die Bilder gezeigt werden sollen
Option Explicit
Const strExt As String = ".jpg"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFileName As String
On Error Resume Next
Me.Shapes("picture").Delete
On Error GoTo 0
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("P8")) Is Nothing Then
strFileName = ThisWorkbook.Path & "\" & Target.Text & strExt
If Dir(strFileName) "" Then
With ActiveSheet.Shapes.AddPicture(strFileName, _
True, True, 0, 0, 100, 35) ' Bild-Größe anpassen
.Left = Range("B56").Left ' Pos. linke obere Ecke
.Top = Range("B56").Top ' Pos. rechte untere Ecke
.Name = "picture"
End With
End If
End If
Application.EnableEvents = True
End Sub
vielleicht reicht dir dies, meld dich wenn es anders sein sollte.
Bei "offen" Fragen solltest du den Haken setzen.
Matze