ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±ÐVBA»s¹Ïªº°ÝÃD-¸ê®Æ¼ÐÅҮ榡­×§ï[¤w¸Ñ¨M]

[µ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ªk­n¦p¦ó­×§ï¡HÁÂÁ¡I

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-3-15 15:24 ½s¿è

¦^´_ 1# bruse
§A¦b¿ý»s«e¤w¦³¹Ïªíªºªº.Activate
  1. ActiveSheet.ChartObjects("¹Ïªí 1").Activate
  2. ActiveChart.SeriesCollection(1).DataLabels.Select
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

¨Ì«Øijªº»yªk¥[¤J«á¤´µM¤£¦æ¡Aªþ¤W­ì©lÀɮסA½Ð«e½ú«üÂI¡C
¤£¹L§Úªº¨­¥÷µLªk¤U¸üªþ¥ó¡A½Ðª½±µ±N­×§ï«áªº»yªk¶K¤W¡AÁÂÁ¡I
    ¥¨¶°»s¹Ïerror.zip (10.02 KB)

TOP

¦^´_ 3# bruse
ApplyDataLabels ¤èªk  ±N¸ê®Æ¼ÐÅÒ®M¥Î©ó¹Ïªí¤¤ªº¬Y¤@¸ê®ÆÂI¡B¬Y¤@¼Æ¦C©Î©Ò¦³¼Æ¦C¡C
¥¨¶°¤¤¹Ïªíªº¸ê®Æ¼ÐÅҮ榡 ¨S¦³³]©w ©Ò¥H·|¥X¿ù
ActiveChart.ApplyDataLabels AutoText:=True    '¦³³]©w«á´N¥i¥H¤F
ActiveChart.SeriesCollection(1).DataLabels.Select

TOP

¦^´_ 4# GBKEE
·PÁÂGBKEE
­è­è¸Õ¹L¼W¥[ÃöÁä»yªk«á¡A¾ã¬q¥¨¶°´N¥i¥H¥Î¤F
ÁÂÁÂÅo¡I

¤£¹L³o­Ë¬O²Ä¤@¦¸¹J¨ì¥¨¶°¿ý»sµLªk¥¿±`°õ¦æªº¡C

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD