《Excel图表实战技巧精粹》章节试读

《Excel图表实战技巧精粹》的笔记-第371页 - 技巧150：PPT中的动态图表

在PPT中实现动态图表
'设置公共变量m
Dim m
Private Sub Findch()
Dim i
'在当前幻灯片页面的所有图形对象中循环
For i = 1 To Me.Shapes.Count
'如果图形对象的类型是嵌入对象，取得图表的Index值
If Me.Shapes(i).Type = msoEmbeddedOLEObject Then m = i
'继续循环
Next
'设置3个选项按钮的文本
OptionButton1.Caption = "收入"
OptionButton2.Caption = "成本"
OptionButton3.Caption = "利润"
End Sub
Private Sub Optionbutton1_Click()
'如果单击了选项按钮1，先运行“Findch”子程序
Findch
'设置嵌入工作表的F1单元格为“收入”
Me.Shapes(m).OLEFormat.Object.worksheets("sheet1").Range("F1").Value = "收入"
End Sub
Private Sub Optionbutton2_Click()
'如果单击了选项按钮2，先运行“Findch”子程序
Findch
'设置嵌入工作表的F1单元格为“成本”
Me.Shapes(m).OLEFormat.Object.worksheets("sheet1").Range("F1").Value = "成本"
End Sub
Private Sub Optionbutton3_Click()
'如果单击了选项按钮3，先运行“Findch”子程序
Findch
'设置嵌入工作表的F1单元格为“利润”
Me.Shapes(m).OLEFormat.Object.worksheets("sheet1").Range("F1").Value = "利润"
End Sub