Bilder in VBA-Code einbetten
13.11.2018 16:52:01
Ph
nachdem ich bei euch schon so viel gelesen habe und mir eure Antworten so gut wie immer helfen konnten, stehe ich nun vor einem Problem, bei dem mir partout keine Lösung einfallen möchte.
Also im Normalfall lade ich Bilder mit folgender Prozedur. Ich weiß, es nicht sehr elegant, _ aber es funktioniert.
Sub BildLadenStandard _
(Tabellenblatt As String, _
NummerDesBildes As Integer, _
NameDesBildes As String, _
PositionDesBildes As String, _
HöheDesBildes As String)
Dim Zelle As Range
Dim Bild As Picture
Dim Pfad As String
Pfad = ThisWorkbook.Path & "\" & NameDesBildes & ".png" ''ggf. ändern
Worksheets(Tabellenblatt).Pictures.Insert(Pfad).Select
Set Zelle = Worksheets(Tabellenblatt).Range(PositionDesBildes)
Worksheets(Tabellenblatt).Pictures(NummerDesBildes).Left = Zelle.Left
Worksheets(Tabellenblatt).Pictures(NummerDesBildes).Top = Zelle.Top
Worksheets(Tabellenblatt).Pictures(NummerDesBildes).Height = Range(HöheDesBildes).Height
End Sub
Nun ist es aber so, das ich ein bestimmtes Bild nicht immer über den Pfad laden will, sondern es direkt im VBA-Code hinterlegen möchte. Ich hab schon überlegt das Bild einmal über MathCAD oder Matlab als Matrix einzulesen und dieses Array in VBA direkt zu hinterlegen. Das scheint mir aber ziemlich umständlich zu sein und mir fällt auch nach längerem überlegen keine einfache Möglichkeit ein diese Array in VBA zurück zu konvertieren.
Kennt jemand eine einfach Möglichkeit Bilder im VBA Code zu speichern?
Ich hoffe ihr könnt mir ein weiteres Mal helfen.