- ©«¤l
- 13
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- EXCEL2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-13
- ³Ì«áµn¿ý
- 2014-10-31
|
[µo°Ý] ½Ð±ÐVBA»s¹Ïªº°ÝÃD-¸ê®Æ¼ÐÅҮ榡קï[¤w¸Ñ¨M]
¥»©«³Ì«á¥Ñ bruse ©ó 2012-3-19 10:11 ½s¿è
·Q¦bVBA²£¥Í§é½u¹Ï«á¡A×§ï§é½uªº¸ê®Æ¼ÐÅҮ榡¤¤¡A¦r«¬¤Î¤j¤p¡A¥Î¿ý»s¥¨¶°¤è¦¡¨ú±o¦p¤Uªºµ{¦¡½X¡C
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial Narrow"
.Size = 12
'¬Ù²¤¤£¥²nªº³¡¥÷
End With
¦ý°õ¦æ¥¨¶°«á¡Aµ{¦¡°õ¦æ¨ìActiveChart.SeriesCollection(1).DataLabels.Select´N¥X¿ù¤F¡A¿ù»~°T®§¦p¤U¡G
°õ¦æ¶¥¬q¿ù»~'1004':
class datalabelsªºselect ¤èªk¥¢±Ñ
½Ð±Ð¦³¸gÅ窺«e½ú¡A»yªkn¦p¦ó×§ï¡HÁÂÁ¡I |
|