Virtuelle Haftnotiz erstellen
21.09.2022 11:06:41
earlycon
ich hatte die Idee, mir per VBA einen virtuellen Post-IT erstellen zu lassen. Mit nachfolgendem Code funktioniert das auch ganz gut. Allerdings habe ich Schwierigkeiten a) bei der Zuweisung der Schriftart & Größe generell und b) separat für die Überschrift. Vielleicht könnte mir da jemand behilflich sein...
Sub Haftnotiz_erstellen()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeSnip1Rectangle, 273#, 764.25, 80.25, 38.25)
With shp
.Left = 260
.Top = 100
.Width = 250
.Height = 180
.Locked = msoFalse
.DrawingObject.LockedText = False
.Fill.ForeColor.RGB = RGB(253, 242, 93)
.Placement = xlMove
.TextFrame2.TextRange.Characters.Text = ">>> Notiz Gruß
Stefan