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

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

¥»©«³Ì«á¥Ñ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD