|
So wie ich das sehe hast du meinen Quelltext einfach in deinen hinein kopiert. Das geht so natürlich nicht. ;)
Example ist einfach nur ein Anwendungsbeispiel, welches du auf deinen bestehenden Quellcode übertragen musst.
Anmerkung: Ich gebe nie Komplettlösungen vor, weil das für mich nicht zielführend ist, d.h. ich will das man sich mit dem Quellcode beschäftigt und etwas davon lernt - also kein stupides copy/paste&forget betreibt.
Also:
Meinen Quellcode fügst du einfach ganz unten, nach deinem bereits vorhandenen Quellcode, ein. Example kannst du dabei weglassen, weil dies dir nur die Anwendung der Hilfsfunktion CreatePictureAtCellPos verdeutlichen soll.
Es müsste dann bei dir so aussehen:
'Option Explicit
Private Sub Wochentag_auslesen(WT As String, Menue As Boolean, Wok As Boolean, Suppe As Boolean, Kita As Boolean)
'...
End Sub
Public Function CreatePictureAtCellPos( _
Filename As String, Cell As Excel.Range, _
Width As Single, Height As Single _
) As Shape
'Fügt das Bild an der Zellposition in angegebene Breite und Höhe ein.
'Es wird nur die Verknüpfung zum Bild gespeichert, das Bild selbst also nicht (so bleibt die Mappe schlank).
Set CreatePictureAtCellPos = Cell.Worksheet.Shapes.AddPicture( _
Filename, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=Cell.Left, _
Top:=Cell.Top, _
Width:=Width, _
Height:=Height)
End Function
Das Option Explicit könntest du auch weglassen, wobei ich das nicht empfehle (oben dennoch mal auskommentiert). Option Explicit erzwingt nämlich die Deklaration (Dim-Anweisung) aller verwendeter Variablen im Quellcode und man kann so z.B. effektiv Tippfehlern vorbeugen (es ist also eine Hilfe, auch wenn man es anfänglich nicht als solche empfindet).
Anschließend musst du in deinem Quelltext wie in Example demonstriert den Dateipfad des Bildes zusammen setzen und CreatePictureAtCellPos anschließend aufrufen.
Gruß
|