So nochmal: 

Moin Zusammen!


Ich bin auch Dank eurer coolen Beiträge in diesem Forum schon recht weitgekommen in meinem Vorhaben eine Datenbank (Excel Tabelle) mittels UserForm zu füllen. Allerdings bin ich nun auf ein Problem gestoßen, das hier noch nicht bequatscht wurde. Zumindest habe ich es nicht gefunden. :)


Hier mein Problem:

Ich möchte in eine von mir bereits erstellte UserForm eine Schaltfläche hinzufügen, die ein Bild in die Tabelle hinzufügen kann, jedoch nicht als Bild, sondern als Symbol/ Objekt. Dies ist ja in Excel für PDF- oder Bild- Dateien möglich. Hier eine Frage vorweg.... ist dies über VBA überhaupt möglich?


Jetzt zu meiner Ausgangssituation:

Ich habe bereits mit Hilfe eurer Beiträge einen Code "schreiben" können, der es ermöglicht ein _ Bild über die UserForm in die Tabelle als Bild in einen bestimmten Bereich der Tabelle einzufügen. Hier der Code:

Private Sub ButtonBild_Click()

   Dim bytBild As Byte
Dim arrBereiche()

   arrBereiche = Array("B10:I23", "B25:I38", "K10:R23", "K25:R38")
   Application.ScreenUpdating = False

   With Application.FileDialog(msoFileDialogFilePicker)

      .AllowMultiSelect = True
      .InitialFileName = "G:\..."
      .ButtonName = "OK"
      .Title = "Bilderauswahl"
      .Show

      If .SelectedItems.Count < 5 Then

         For bytBild = 1 To .SelectedItems.Count

            strBild = .SelectedItems(bytBild)

            With ActiveSheet.Shapes.AddPicture(Filename:=strBild, LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
                Width:=Range(arrBereiche(bytBild - 1)).Width, _
                Height:=Range(arrBereiche(bytBild - 1)).Height)
               .Top = Range(arrBereiche(bytBild - 1)).Top
               .Left = Range(arrBereiche(bytBild - 1)).Left

            End With

         Next bytBild

        Else

         MsgBox "Maximal 1 Bilder auswählbar"

      End If

   End With

   Application.ScreenUpdating = True

End Sub

Wie kann ich, falls das möglich sein sollte, aus diesem Bild ein Symbol generieren, das in eine Zelle passt?


Vielen Dank schon jetzt für eure Rückmeldung!


Beste Grüße,

Jacey