1

我正在尝试使用一些形状（如图表和图片）的 Excel 表格制作可打印的报告。我可以使用以下代码将图表放在工作表上：

    oSheetReport.Range("A51").Select()

    Dim oChart1 As Excel.Shape
    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlLine
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

    oSheetReport.Range("A70").Select()

    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlColumnStacked
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

    oSheetReport.Range("A100").Select()

    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlColumnStacked100
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

但是定位和对齐失败了，这让我的报告看起来很难看。有没有更好的方法来实现这一点？

4

1 回答 1

3

要在一个步骤中添加、定位和对齐，您可以使用以下命令：

Set oChart1 = ActiveSheet.ChartObjects.Add _
        (Left:=250, Width:=375, Top:=75, Height:=225)

Left是左对齐，Top是顶部对齐。Width和Height- 好吧，你可以弄清楚！

更多信息请访问http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html

于 2012-10-10T13:00:15.537 回答