|
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
|