Можете ли вы изменить тип объекта в EXCEL

Question

Я создал прямоугольный объект с текстом внутри документа EXCEL и много отформатировал его, если я хочу внезапно изменить его на круговой (наклонный) тип, есть ли способ сделать это в EXCEL?

Прямо сейчас я бы создал круговой (наклонный) объект, а затем скопировал бы формат объекта с помощью значка формата копирования. Что касается измерения объекта, я бы просто скопировал его вручную. Также текст, написанный внутри объекта, также копируется вручную. Я надеялся, что есть более быстрый способ сделать это.

Answer 1

Вы можете сделать это с VBA Macro's. По правде говоря, я пытался с Excel 2013, поэтому в 2010 году все может быть немного иначе.

Selection.ShapeRange.AutoShapeType = msoShapeOval

Изменяет выбранную фигуру на Овальную

Selection.ShapeRange.AutoShapeType = msoShapeRectangle

меняет обратно.

Вы также можете установить высоту, ширину и т.д., Как в этом примере:

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

Выше выбирается конкретная форма. Вы можете получить VBA, чтобы найти все формы. ActiveSheet.Shapes вернет диапазон, который вы можете зациклить, проверьте текущий AutoShapeType и измените его при необходимости.