Tools
- > Macro
- > Record New Macro
生成此代码,然后您可以调整以满足您的特定需求:
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasTitle = False
Run Code Online (Sandbox Code Playgroud)