Excel图表实战技巧精粹 8.0分
读书笔记 技巧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

0
《Excel图表实战技巧精粹》的全部笔记 1篇
豆瓣
免费下载 iOS / Android 版客户端