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

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

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

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