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

时间:2021-10-10 14:10:53

宏能实现吗  
柱状图比例调整。 不通过拖拽的方式

11 个解决方案

#1


录制宏试试。

#2


宏里没显示啊

#3




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

#4


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

#5


引用 4 楼 hhcrazy1234 的回复:
你这是Excel多少?我的是07的 居然录制不了

Excel2003.

下面是2007录制的
 

#6





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


#7


呵呵,看错了,好像是没有相关的代码哦。

你根据2003的那个代码自己修改吧。

#8


恩  我根据你的修改了大小,你能帮我录一个横向拖动的吗? 麻烦你了 我手边实在没有03的

#9


就是整体位置做左移或右移的

#10


引用 9 楼 hhcrazy1234 的回复:
就是整体位置做左移或右移的


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

#11


这个 通过录制宏可以了吗?

#1


录制宏试试。

#2


宏里没显示啊

#3




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

#4


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

#5


引用 4 楼 hhcrazy1234 的回复:
你这是Excel多少?我的是07的 居然录制不了

Excel2003.

下面是2007录制的
 

#6





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


#7


呵呵,看错了,好像是没有相关的代码哦。

你根据2003的那个代码自己修改吧。

#8


恩  我根据你的修改了大小,你能帮我录一个横向拖动的吗? 麻烦你了 我手边实在没有03的

#9


就是整体位置做左移或右移的

#10


引用 9 楼 hhcrazy1234 的回复:
就是整体位置做左移或右移的


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

#11


这个 通过录制宏可以了吗?