- ©«¤l
- 17
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Tinwan
- µù¥U®É¶¡
- 2011-4-9
- ³Ì«áµn¿ý
- 2018-7-6
|
[µo°Ý] Ãö©óUserForm ¤¤ª«¥óChartSpaceªº¥Îªk½Ð±Ð
¦U¦ì«e½úÌ
³Ìªñ¤@¦b¬ã¨s¦p¦ó¦bUserForm ¤¤¨Ï¥Î ChartSpace (Microfost Office Web Companents 11.0)
¦ý¬O§ÚµLªk±N4²Õ¸ê®Æ©ñ¦b¦P¤@Óªí®æ¤W!
§Ú¦³ª¦¹L»D¤F(³o¸Ì)¦ý¬OÁÙ¬O¦³°ÝÃD
Google ¤]§ä¤£¨ì¬ÛÃöªº¸ê®Æ¡A³sChartSpace ªº¥Îªk¤]·d¤£¤Ó²M·¡:'(
ªþ¤WÀÉ®×»Pµ{¦¡¡A§Æ±æ¤j®aÀ°À°§Ú
§Ú¥Îªº¬Ooffice2007- Private Sub UserForm_Initialize()
- Dim m As Integer, i As Integer
- Dim chc
- Dim chtnewchart
- m = 12
- ReDim Ascategories(m), Aivalues(m), Aivalues2(m)
- ChartSpace1.Clear
- For y = 1 To 2
- For i = 1 To m
- Ascategories(i) = ThisWorkbook.Sheets(1).Cells(i + 1, 1)
- Aivalues(i) = ThisWorkbook.Sheets(1).Cells(i + 1, 1 + y)
- Next i
- Set chc = ChartSpace1.Constants
- Set chtnewchart = ChartSpace1.Charts.Add
- chtnewchart.Type = chc.chChartTypeLineMarkers
- With chtnewchart
- .SetData chc.chDimSeriesNames, chc.chDataLiteral
- .SetData chc.chDimCategories, chc.chDataLiteral, Ascategories
- .SeriesCollection(0).SetData chc.chDimValues, chc.chDataLiteral, Aivalues
- End With
- Next y
- With ChartSpace1
- .HasChartSpaceTitle = True
- .ChartSpaceTitle.Caption = "Family"
- .ChartSpaceTitle.Font.Size = 25
- End With
- End Sub
½Æ»s¥N½X
Book1.rar (18.08 KB)
|
|