[已解决]插入一个自选图形 怎么显示在单元格正中

我心飞翔410

单元格行高175 列宽42（行高列宽值单位都是默认）   插图自选图形宽 7.33cm  高5.5cm  怎么让插入的自选图形在单元格正中

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-1-7 12:01

Sub tt()
With Range("a1")
    .RowHeight = 175
    .ColumnWidth = 42
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Top + 23.98116, .Left + 9.545, 207.78, 155.91).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
End With
End Sub

跳转到最佳答案楼层

苏子龙

Sub tt()
With Range("a1")
    .RowHeight = 175
    .ColumnWidth = 42
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Top + 23.98116, .Left + 9.545, 207.78, 155.91).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
End With
End Sub

我心飞翔410

苏子龙 发表于 2017-1-7 12:01
Sub tt()
With Range("a1")
    .RowHeight = 175

请问哈23怎么计算的啊