Você pode alterar o tipo de um objeto no EXCEL

Question

Eu criei um objeto de retângulo com texto dentro de um documento do EXCEL e o formatei muito, se eu quiser alterá-lo repentinamente para o tipo circular (oblíquo), existe uma maneira de fazer isso no EXCEL?

Neste momento, gostaria de criar um objeto circular (oblíquo) e copiar o formato do objeto por meio do ícone de formato de cópia. Quanto à dimensão do objeto, eu apenas copiaria manualmente. Além disso, o texto escrito dentro do objeto também é copiado manualmente. Eu esperava que houvesse uma maneira mais rápida de fazer isso.

    

Answer 1

Você pode fazer isso com macros do VBA. Admito que eu tentei com o Excel 2013, então as coisas podem ser um pouco diferentes em relação a 2010.

Selection.ShapeRange.AutoShapeType = msoShapeOval

Altera a forma selecionada para Oval

Selection.ShapeRange.AutoShapeType = msoShapeRectangle

muda de volta.

Você também pode definir altura, largura, etc., como neste exemplo:

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

O acima seleciona uma forma específica. Você pode obter o VBA para encontrar todas as formas. ActiveSheet.Shapes retornará um intervalo no qual você pode fazer um loop, verifique o atual AutoShapeType e altere-o, se necessário.