求问：能否按照内嵌图表的名称顺序进行垂直排列？

FENGJUN · 发表于 2004-12-14 10:14

以下代码能对工作表中所有的内嵌图表进行垂直排列，能否按照内嵌图表的名称顺序进行垂直排列？

Sub SizeAndAlignChartsV() Dim ChtWidth As Long, ChtHeight As Long Dim TopPosition As Long, LeftPosition As Long Dim ChtObj As ChartObject If ActiveChart Is Nothing Then Exit Sub 'Get size of active chart ChtWidth = ActiveChart.Parent.Width ChtHeight = ActiveChart.Parent.Height TopPosition = ActiveChart.Parent.Top LeftPosition = ActiveChart.Parent.Left Interv = 10 For Each ChtObj In ActiveSheet.ChartObjects ChtObj.Width = ChtWidth ChtObj.Height = ChtHeight ChtObj.Top = TopPosition ChtObj.Left = LeftPosition TopPosition = TopPosition + ChtObj.Height + Interv Next ChtObj End Sub

chenjun · 发表于 2004-12-14 11:26

图表名称有2种，一种是excel内定的名称（自动按插入时的顺序按序命名，如插入后删除了也不可能再用前面的名称的），另一个是插入时人为定义的，不知你指的是哪一种？

FENGJUN · 发表于 2004-12-14 11:57

按照内定名称，期待中...

chenjun · 发表于 2004-12-14 12:27

需要重新定义统一的图表尺寸吗？

FENGJUN · 发表于 2004-12-14 12:42

不需要。

chenjun · 发表于 2004-12-14 13:40

代码这样写就可以了 Sub SizeAndAlignChartsV() Dim TopPosition As Single, LeftPosition As Single Dim ChtObj As ChartObject Dim sh As Worksheet Dim icount As Boolean Set sh = ActiveSheet icount = True For Each ChtObj In sh.ChartObjects If icount Then TopPosition = ChtObj.Top + ChtObj.Height + 2 '加2点作为间距 LeftPosition = ChtObj.Left icount = False Else With ChtObj .Top = TopPosition .Left = LeftPosition TopPosition = TopPosition + .Height + 2 End With End If Next ChtObj End Sub

FENGJUN · 发表于 2004-12-14 14:36

Chenjun:

真是不求不得。代码用处大极！再谢！！！

用户名		自动登录	找回密码
密码			免费注册