使用sparklines处理迷你图组的属性

《使用sparklines处理迷你图组的属性》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、e800，国内最具活力的IT门户网站。http://www.e800.com.cn【e800编译】此示例演示在MicrosoftExcel2010工作簿中如何使用迷你图组的各项属性。此代码段是Office2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在VisualStudio2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者

2、是根据代码注释提示来调整环境，运行示例代码。MicrosoftOffice2010提供了你所需要的工具来创建功能强大的应用程序。MicrosoftVisualBasicApplication（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码在Excel2010中新建工作簿，并将代码复制到Sheet1类模块。将光标放在WorkWithSparklines，按F8开始调试，然后Shift+F8单步执行。并列放置VBA和Excel窗口，这样你就可以边运行边查

3、看结果。SubWorkWithSparklines()'MakesureyoupressShift+F8tostepoverthisprocedure.FillRandomDataDimrngAsRangeSetrng=Range("C2","N11")'AddsparklinestothesecondcolumnDimslgAsSparklineGroupDimslRngAsRangeSetslRng=Range("B2","B11")Setslg=slRng.SparklineGroups.Add(Xl

4、SparkType.xlSparkLine,rng.Address)slg.Points.Highpoint.Visible=True'Settingsfortheseries:Withslg.SeriesColor.ThemeColor=5e800，国内最具活力的IT门户网站。http://www.e800.com.cn.TintAndShade=0EndWith'Markersettings:Withslg.Points.Markers.Visible=TrueWith.Color.ThemeColor

5、=6.TintAndShade=0.5EndWithEndWith'Highpointsettings:Withslg.Points.Highpoint.Visible=TrueWith.Color.ThemeColor=7.TintAndShade=0.5EndWithEndWith'Lowpointsettings:Withslg.Points.Lowpoint.Visible=TrueWith.Color.ThemeColor=2e800，国内最具活力的IT门户网站。http://www.e800.c

6、om.cn.TintAndShade=0.5EndWithEndWith'Nowchangethesparklinetype:slg.Type=xlSparkColumnEndSubFunctionFillRandomData()AsRange'Noneedtostopthroughthisprocedure.DimmonthAsIntegerFormonth=1To12Cells(1,month+2).Value=MonthName(month,True)Nextmonth'Fillinrowswithr

7、andomdata.DimiAsIntegerDimjAsIntegerFori=1To10Cells(i+1,1).Value="Sales"&iForj=1To12Cells(i+1,j+2)=Round(Rnd*100)NextjNextiRange("C1").CurrentRegion.HorizontalAlignment=xlCenterRange("B:B").ColumnWidth=15e800，国内最具活力的IT门户网站。http://www.e800.com.cnEndFunction