VBA 调整Excel柱状图 比例大小 大神来帮帮我把

Question

excelvba宏

Answer 1

Sub Macro1()
'
' Macro1 Macro
' 宏由 Microsoft 录制，时间: 2014/4/22
''
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("图表 1").ScaleWidth 1.15, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("图表 1").ScaleHeight 1.3, msoFalse, msoScaleFromTopLeft
End Sub

Answer 2

你这是Excel多少?我的是07的 居然录制不了

Answer 3

Excel2003.下面是2007录制的

Answer 4

Sub Macro1()
'
' Macro1 Macro
''
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.PlotArea.Select
    Selection.Left = 19.415
    Selection.Top = 0.102
    ActiveSheet.ChartObjects("图表 1").Activate
    Selection.Left = 52.415
    Selection.Top = 15.102
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("图表 1").Activate
End Sub

Answer 5

6楼不就是吗？设置left和top属性即可。