将柱形图定位到现有工作表VB中的特定单元格

Question

我无法在现有工作表的特定单元格范围内定位柱形图。有人有什么建议吗？另外如何在条形图的顶部显示数据标签？另外，如何为饼图调整图例大小？提前谢谢！

            Dim data As Worksheet
            Dim colChart As Chart

     Set data = ActiveWorkbook.Worksheets("Data") 'have charts in data ws
    Set colChart = data.Shapes.AddChart.Chart ' set col chart
    Set pieChart = data.Shapes.AddChart.Chart 'set pie chart

     With colChart
  .HasLegend = False 'no legend
  .ChartType = xlColumnClustered 'clustered column
  .SetSourceData Source:=Sheets("Data").Range("E2:E7"), PlotBy:=xlColumns
  .HasTitle = True
  .ChartTitle.Text = "Statictics on 50,000 Dice" 'title
  .Axes(xlCategory, xlPrimary).HasTitle = True ' axis title
  .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dice Face"
  .Axes(xlValue, xlPrimary).HasTitle = True 'axis title
  .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Counts"

     End With

Answer 1

尝试手动录制您想要的宏。 Excel会记录一些你不想要的代码，只需将其删除即可。录制的宏应该回答你的问题。