我正在从同一个来源创建各种图表.我希望能够将每个图表的vba剪切为图片.有谁知道正确的代码？
我试过这个,但它不起作用:
Range("B21:C22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Graphs'!$B$21:$C$22")
ActiveChart.ChartType = xl3DPie
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveSheet.Pictures.Paste.Select
我有以下代码,来计算一系列单元格中的最大值:
Range("E3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-3]:R[50]C[-3])"
如何在代码中用变量替换50？
谢谢你的帮助!