
Ich habe in einem EXCEL-Dokument ein rechteckiges Objekt mit Text erstellt und es stark formatiert. Wenn ich es plötzlich in eine kreisförmige (schräge) Form ändern möchte, gibt es eine Möglichkeit, dies in EXCEL zu tun?
Im Moment würde ich ein kreisförmiges (schräges) Objekt erstellen und dann das Format des Objekts über das Symbol „Format kopieren“ kopieren. Die Dimension des Objekts würde ich einfach manuell kopieren. Auch der im Objekt geschriebene Text wird manuell kopiert. Ich habe gehofft, dass es einen schnelleren Weg gibt, dies zu tun.
Antwort1
Sie können dies mit VBA-Makros tun. Zugegebenermaßen habe ich es mit Excel 2013 versucht, daher könnten die Dinge bei 2010 etwas anders sein.
Selection.ShapeRange.AutoShapeType = msoShapeOval
Ändert die ausgewählte Form in Oval.
Selection.ShapeRange.AutoShapeType = msoShapeRectangle
ändert es zurück.
Sie können auch Höhe, Breite usw. wie in diesem Beispiel festlegen:
Sub Macro3()
ActiveSheet.Shapes.Range(Array("Oval 3")).Select
Selection.ShapeRange.Height = 53.8582677165
Selection.ShapeRange.ScaleHeight 1.11, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.AutoShapeType = msoShapeOval
End Sub
Das Obige wählt eine bestimmte Form aus. Sie könnten VBA alle Formen finden lassen. ActiveSheet.Shapes
gibt einen Bereich zurück, den Sie durchlaufen können, um den aktuellen Wert zu überprüfen AutoShapeType
und ihn bei Bedarf zu ändern.