Farbänderung bei Formen
24.06.2022 08:09:47
Romeo
ich möchte beim Kopieren einer Form es dem User ermöglichen die Farbe der Form anzupassen.
Es soll dazu die Farbpalette geöffnet werden, um die Farbe auszuwählen. Bei "OK" wird die Form in ein anders Sheet kopiert und die Farbe ist geändert.
Irgendwie komme ich nicht weiter. Es wird zwar kopiert, die Farbpalette öffnet sich - aber die Farbe ändert sich nicht.
Was mach ich falsch?
Geht das überhaupt mit dem Ansatz?
Hier mein derzeitiger Code:
Sub Zweiunddreißig_h_Farbe()
' Zweiunddreißig_h_Farbe Makro
Sheets("Tabelle1").Select
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = Application.Dialogs(xlDialogColorPalette).Show 'msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.8000000119
.Transparency = 0
.Solid
End With
Sheets("Planung").Select
Range("C22").Select
ActiveSheet.Paste
End Sub