[已解决]如何让图表按“图表标题”自动排列成两列？？

eric_sun

<p>请教各位高手&nbsp; ：如何让图表按“图表标题”自动排列成两列？？ 附件试例中，sheet1 中是原始资料，sheet2中是整理出来的资料 7uBPFxVZ.rar (16.13 KB, 下载次数: 1275)

2008-10-14 09:12 上传

点击文件名下载附件
[求助]如何让图表按“图表标题”自动排列成两列？？

就是图表标题为 “VOUT”的图表有两个，我想让它排列成 左面一个图 右边一个图，成水平排列。不知道我说明白没？操作要求用宏来完成。在此请教高手！！！

万分感谢（EXCEL 精英培训网 八月的梦游者）为我解决这个问题，感谢你！！！
同时也感谢大家对此帖的关心和帮助，谢谢大家了！
以下是（八月）的解决代码，分享！！！

Sub mmm()
    Dim iCount As Integer
    Dim i As Integer
    Dim iMid As Integer
    With Sheet1
        iCount = .ChartObjects.Count
        If iCount Mod 2 = 0 Then
            iMid = iCount / 2
        Else
            iMid = Int(iCount / 2) + 1
        End If
        For i = iMid + 1 To iCount
            .ChartObjects(i).Left = .ChartObjects(i - iMid).Left + .ChartObjects(i - iMid).Width
            .ChartObjects(i).Top = .ChartObjects(i - iMid).Top
        Next i
    End With
End Sub

续问：
我通过手动录制了一个宏：如下：
Sub tbpl()
  
     Windows("图表排列学习.xls").Activate

    ActiveSheet.Shapes.Range(Array("Chart 6", "Chart 7", "Chart 8", "Chart 9", "Chart 10")).Select    按住Ctrl 鼠标点第6至10图   
   Selection.ShapeRange.Group.Select                                  右键组合这5个图
    ActiveSheet.Shapes("Group 11").Select                              组合后生成Group 11----不知道可不可以这么理解
    Selection.ShapeRange.IncrementLeft 363#                        把组合后的图挪到指定位置
    Selection.ShapeRange.IncrementTop -1140.75                  同上

End Sub

我改编的宏：
Sub tbpl()
Dim a As Integer, n As Integer, x As Integer
     a = 5
     For n = 1 To a
    x = a + n
    Windows("图表排列学习.xls").Activate
   ActiveSheet.Shapes.Range(Array("Chart " & x )).Select         注：" Chart 这里有个空格 "              
   
    Next n
    Selection.ShapeRange.Group.Select
    ActiveSheet.Shapes("Group 11").Select
    Selection.ShapeRange.IncrementLeft 363#
    Selection.ShapeRange.IncrementTop -1140.75
   End Sub

问题是 宏可以找到这5个图表，但是不能够让他们组合到一起，求教高手。

[ 本帖最后由 eric_sun 于 2009-6-9 15:21 编辑 ]

willin2000

不很明白楼主的要求.

用试试用绘图工具的对象选择工具选中后,用相应的对齐或居中工具组合使用.

eric_sun

就是图表标题为 “VOUT”的图表有两个，我想让它排列成 左面一个图 右边一个图，成水平排列。不知道我说明白没？

补充： 我生成的图表顺序是 “C4：G15”、“C20：G31”“C36：G47”“H4：H15”“H20：H31”“H36：H47”  

            图表标题 ：  （C4：G15 ；H4：H15）同为VOUT、（C20：G31；H20：H31）同为 VBP。

我想让生成的图表是    左边：  C4：G15                 右边：  H4：H15

                                                C20：G31                         H20：H31

                                                C36：G47                         H36：H47

以上操作要求用宏来完成。

在此请教高手！！！

[此贴子已经被作者于2008-10-15 9:45:47编辑过]

eric_sun

此问题一直没人解决

setogizumo

我也想知道這個問題。苦惱中。。。

chenspwp

用宏解决.....

不会

sandy2009

看來這還是個很複雜的問題。
我也非常的想知道怎么做。請高手指教一下

eric_sun

我又重新编辑了一下，不知道我写的清楚不，这个问题困扰我老长时间了。

jiulongpo

一年多前的帖子，楼主还能记到这个问题，深表佩服。
但我确实没有搞明白，你要怎么做，工作薄中有两个表，两个表都有图表。

single_star

'**假设楼主的确10个图表是依序产生,那就很容易处理的;否则以下代码需再增加先后的判断式

Sub Macro1()
    sh0 = "Sheet1"
    Sheets.Add
    sh1 = ActiveSheet.Name
    n = Sheets(sh0).ChartObjects.Count
    Application.ScreenUpdating = False
    y0 = 10
    x0 = 100
    For i = 1 To n
    Sheets(sh0).Select
    Sheets(sh0).ChartObjects(i).Select
     ActiveChart.ChartArea.Copy      
    Sheets(sh1).Select
    Sheets(sh1).Cells(i * 10, 2).Select
    ActiveSheet.Paste
     ActiveChart.Parent.Top = y0
     ActiveChart.Parent.Left = x0
     y0 = y0 + ActiveChart.Parent.Height
     If i = 5 Then
     x0 = x0 + ActiveChart.Parent.Width + 10
     y0 = 10
     End If
    Next
    Exit Sub
     Application.ScreenUpdating = True
End Sub

[ 本帖最后由 single_star 于 2009-6-1 17:49 编辑 ]