
我在 EXCEL 文件中創建了一個帶有文字的矩形對象,並對其進行了很多格式化,如果我想突然將其更改為圓形(傾斜)類型,有沒有辦法在 EXCEL 中執行此操作?
現在,我將建立一個圓形(傾斜)對象,然後透過複製格式圖示複製該對象的格式。至於物體的尺寸,我只是手動複製它。此外,物件內部寫入的文字也是手動複製的。我希望是否有更快的方法來做到這一點。
答案1
您可以使用 VBA 巨集來完成此操作。誠然,我嘗試使用 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
並根據需要更改它。