PPT与Excel完美结合做练习
tivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = xlSheet.Range("a" & i) & "、" & Replace(xlSheet.Range("b" & i), Chr(10), Chr(13))表示将工作表Sheet1中单元格A3的值加上“、”,再加B3中将换行符替换成回车符后的值一起赋给幻灯片中的第一个文本框。
在“下一题()”这个过程中,i=i+1表示
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话:020-87673002
本站访问人数: