[求助]如何用VBA设置图表的大小和位置

supershll

lx76Ecp0.rar (12.76 KB, 下载次数: 284)

2007-4-28 17:07 上传

点击文件名下载附件
[求助]如何用VBA设置图表的大小和位置

  小弟最近做一个简单的图表，实在不知道该如何改变图表的大小和位置，还有图表内各元素位置和大小的设定，比如图表区，绘图区，图表标题，图例项等等。

 劳驾高手帮帮忙！或者给点指导也行，不是我不动脑筋，等我找到方法后一定会发到这里来和大家共享的。

  先谢过了！

supershll

自己录制了一个宏，把activesheet.Shapes("图表 2") 改成 activesheet.shapes(1)，搞定

aixubo2008

为什么要改啊？“图表2”是什么意思？改成 1  又是什么意思？请高手指教

frankysf

以下代码供你参考：
Sub ChartAdd()
   Dim myRange As Range
   Dim myChart As ChartObject
   Dim R As Integer
   With Sheet1
       .ChartObjects.Delete
       R = .Range("A65536").End(xlUp).Row
       Set myRange = .Range("A" & 1 & ":B" & R)
       Set myChart = .ChartObjects.Add(120, 40, 400, 250)
       With myChart.Chart
           .ChartType = xlColumnClustered
           .SetSourceData Source:=myRange, PlotBy:=xlColumns
           .ApplyDataLabels ShowValue:=True
           .HasTitle = True
           .ChartTitle.Text = "图表制作示例"
           With .ChartTitle.Font
               .Size = 20
               .ColorIndex = 3
               .Name = "华文新魏"
           End With
           With .ChartArea.Interior
               .ColorIndex = 8
               .PatternColorIndex = 1
               .Pattern = xlSolid
           End With
           With .PlotArea.Interior
               .ColorIndex = 35
               .PatternColorIndex = 1
               .Pattern = xlSolid
           End With
           .SeriesCollection(1).DataLabels.Delete
           With .SeriesCollection(2).DataLabels.Font
               .Size = 10
               .ColorIndex = 5
           End With
       End With
   End With
   Set myRange = Nothing
   Set myChart = Nothing
End Sub

kaaaker

缩放之后又不对了哦，这要好像只是修改了相对位置，而不是绝对位置。

wjpsz

frankysf 发表于 2010-11-23 15:04
以下代码供你参考：
Sub ChartAdd()
   Dim myRange As Range

如何设置一段VBA代码，让EXCEL中的图表坐标轴刻度的最小值等于一个单元格的值？而且触发这段代码的事件为该单元格的值发生改变的时候，自动重新设置坐标轴刻度的最小值。谢谢。

zxpmjmagic·

只能自己琢磨了，找到合适的答案太难了

zxpmjmagic·

楼上原来是我，自己琢磨吧，还是没有解决相应问题

ning84

学习ppt-VBA的难点是层级关系太多，一级套一级，搞得晕晕乎乎。

1.      Dim GrpSht As Graph.DataSheet
   
2.      Dim GrpLab As Graph.DataLabel
   
3.      Dim Labs As Graph.DataLabels
   
4.      Dim ii, ii1
   
5.          With GrpChart
   
6.               .HasDataTable = True
   
7.               .ChartArea.Font.Size = 15
   
8.               Set GrpSht = .Application.DataSheet
   
9.               'Set GrpLab = .SeriesCollections(1).DataLabel
   
10.               .HasLegend = False
    
11.               .HasTitle = False
    
12.               .ChartType = xlColumnClustered
    
13.               '.ChartType = xlLineMarkers
    
14.               .SeriesCollections(3).ChartType = xlLineMarkers
    
15.               
    
16.               For ii = 1 To .SeriesCollections.Count
    
17.                    With .SeriesCollections(ii)
    
18.                         .Border.Weight = xlThick
    
19.                         .HasDataLabels = True
    
20.                         Set Labs = .DataLabels
    
21.                                        For ii1 = 1 To Labs.Count
    
22.                                              With Labs(ii1)
    
23.                                                    .Font.Size = 10
    
24.                                                    .HorizontalAlignment = xlRight
    
25.                                                    .VerticalAlignment = xlTop
    
26.                                                    .ReadingOrder = xlLTR
    
27.                                                    With .Border
    
28.                                                         .ColorIndex = 1
    
29.                                                         .Weight = xlThin
    
30.                                                         .LineStyle = xlContinuous
    
31.                                                    End With
    
32.                                                    .Shadow = True
    
33.                                                    With .Interior
    
34.                                                         .ColorIndex = 39
    
35.                                                         .PatternColorIndex = 1
    
36.                                                         .Pattern = xlSolid
    
37.                                                    End With
    
38.                                                    .AutoScaleFont = False
    
39.                                                    With .Font
    
40.                                                        .Name = "黑体"
    
41.                                                        .FontStyle = "常规"
    
42.                                                        .Size = 10
    
43.                                                        .Strikethrough = False
    
44.                                                        .Superscript = False
    
45.                                                        .Subscript = False
    
46.                                                        .OutlineFont = False
    
47.                                                        .Shadow = True
    
48.                                                        .ColorIndex = 1
    
49.                                                        .Background = xlOpaque
    
50.                                                    End With
    
51.                                                    '.Position = xlLabelPositionInsideBase
    
52.                                              End With
    
53.                                        Next ii1
    
54.                         Select Case ii '.ChartType
    
55.                               Case 2 'xlLineMarkers, xlLine, xlLineMarkersStacked
    
56.                                     Labs.Position = xlLabelPositionInsideBase
    
57.                               Case 1
    
58.                                     Labs.Position = xlLabelPositionOutsideEnd
    
59.                               Case 3
    
60.                                     Labs.Position = xlLabelPositionCenter
    
61.                         End Select
    
62.                   End With
    
63.               Next ii
    
64.          End With
    
65.          

复制代码