Question

vb怎么在Excel中画饼状图

vb操作EXCEL
将数据导入EXCEL，另外在根据数据，在EXCEL里面画出饼图

Answer 1

下面代码是用excel录制出的vba,用VB以app的方式打开excel，然后再把下面的代码转成VB的就可以了，很简单，我机器没装VB，所以不能帮你调试

Charts.Add '添加一个图表
ActiveChart.ChartType = xl3DPie '图表类型是三维饼图
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B7"), PlotBy:=xlColumns 'A1:B7代表你的数据区域(包括标题行和列，因为画图表需要数据的)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" '当前工作表
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "图表名称" '设置图表名称
End With

追问

大哥，感觉就是这么个意思，求详细

追答

在VB中添加引用：
Microsoft Excel 11.0 Object Library 我的机器是office 2003,安装其它office还会有其它版本
在程序的当前目录创建一个excel.xls文件，并把第一个工作表(sheet1)中的A1:B7输入一些数据，例：
股东名称 股份金额(万元)
A股东 150
B股东 170
C股东 100
D股东 300
E股东 235
F股东 350

-------------------代码开始--------------------------------
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()

Dim FileName As String
FileName = App.Path & "\excel.xls"
On Error Resume Next

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表

Charts.Add '添加一个图表
ActiveChart.ChartType = xl3DPie '图表类型是三维饼图
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B7"), PlotBy:=xlColumns 'A1:B7代表你的数据区域(包括标题行和列，因为画图表需要数据的)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" '当前工作表
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "图表名称" '设置图表名称
End With

End Sub
-------------------代码结束--------------------------------

追问

大哥，就是这样，能不能把xlSheet的属性文档、说明都发给我看看啊，
邮箱：basketball0916@126.com qq:29740436 MSN:basketball0916@hotmail.com

Answer 2

不懂楼主说的？

1、VB应该是命令格式（一种编程语言）
2、Excel中饼状图的画法：
Excel——插入——图表——选折饼状图——按照弹出的对话框选择图表的数据源

Answer 3

打开Excel点插入图表 标准类型 饼图 选类型、添加数据即可

Answer 4

把你要的数据框起来 然后在excel下面的sheet上点右键，插入，选第二个是图形，然后选饼图...一直点确定即可，或者自己可以按情况设定

Answer 5

您说的到底是vb还是excel？？