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

supershll · 发表于 2007-4-28 17:20

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

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

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

先谢过了！

supershll · 发表于 2007-4-28 20:48

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

aixubo2008 · 发表于 2010-7-6 15:35

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

frankysf · 发表于 2010-11-23 15:04

以下代码供你参考：
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 · 发表于 2011-11-28 09:57

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

wjpsz · 发表于 2013-6-24 19:54

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

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

zxpmjmagic· · 发表于 2013-11-20 14:41

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

zxpmjmagic· · 发表于 2013-12-2 19:49

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

ning84 · 发表于 2023-2-2 09:20

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

Dim GrpSht As Graph.DataSheet
Dim GrpLab As Graph.DataLabel
Dim Labs As Graph.DataLabels
Dim ii, ii1
With GrpChart
.HasDataTable = True
.ChartArea.Font.Size = 15
Set GrpSht = .Application.DataSheet
'Set GrpLab = .SeriesCollections(1).DataLabel
.HasLegend = False
.HasTitle = False
.ChartType = xlColumnClustered
'.ChartType = xlLineMarkers
.SeriesCollections(3).ChartType = xlLineMarkers
For ii = 1 To .SeriesCollections.Count
With .SeriesCollections(ii)
.Border.Weight = xlThick
.HasDataLabels = True
Set Labs = .DataLabels
For ii1 = 1 To Labs.Count
With Labs(ii1)
.Font.Size = 10
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.ReadingOrder = xlLTR
With .Border
.ColorIndex = 1
.Weight = xlThin
.LineStyle = xlContinuous
End With
.Shadow = True
With .Interior
.ColorIndex = 39
.PatternColorIndex = 1
.Pattern = xlSolid
End With
.AutoScaleFont = False
With .Font
.Name = "黑体"
.FontStyle = "常规"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = True
.ColorIndex = 1
.Background = xlOpaque
End With
'.Position = xlLabelPositionInsideBase
End With
Next ii1
Select Case ii '.ChartType
Case 2 'xlLineMarkers, xlLine, xlLineMarkersStacked
Labs.Position = xlLabelPositionInsideBase
Case 1
Labs.Position = xlLabelPositionOutsideEnd
Case 3
Labs.Position = xlLabelPositionCenter
End Select
End With
Next ii
End With

复制代码

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

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

回复 2楼 supershll 的帖子