2,462
社区成员
发帖
与我相关
我的任务
分享
XLWorkBook.Charts.Add
XLWorkBook.ActiveChart.ChartType = xlColumnClustered
XLWorkBook.ActiveChart.Legend.Clear
XLWorkBook.ActiveChart.SetSourceData Source:=XLWorkSheet.Range("Q2:Q16"), PlotBy:=xlColumns
XLWorkBook.ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C1:R16C1"
XLWorkBook.ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
XLWorkBook.ActiveSheet.Shapes("图表 1").IncrementLeft -205.5
XLWorkBook.ActiveSheet.Shapes("图表 1").IncrementTop -125.75
XLWorkBook.ActiveSheet.Shapes("图表 1").ScaleWidth 1.82, msoFalse, msoScaleFromTopLeft
XLWorkBook.ActiveSheet.Shapes("图表 1").ScaleHeight 1.97, msoFalse, msoScaleFromTopLeft
XLWorkBook.ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 12