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

[µo°Ý] Ãö©ó¹Ïªí¦WºÙ

[µo°Ý] Ãö©ó¹Ïªí¦WºÙ

ActiveSheet.ChartObjects("¹Ïªí 1025").Activate

¤W­±¬O§Ú¥Ø«eªºµ{¦¡½X¡A²{¦b°ÝÃD¬Oexcelªº¹Ïªí¦WºÙ»ª¦ü·|Åܧó
©Ò¥H¦³®É­Ôµ{¦¡µLªk°õ¦æ

½Ð°Ý¦U¦ì¤j¤j¦³µL¨ä¥L¤èªk

¦p§ó§ï¹Ïªí¦WºÙ??©Î¥Îµ{¦¡½Xª½±µ¿ï©w¹Ïªí??
(sheet¥u¦³¤@­Ó¹Ïªí)

·P®¦¤£ºÉ

¦^´_ 1# swtseng
¥u¦³¤@­Ó¹Ïªí´N«ü©w²Ä¤@­Ó¹Ïªí
ActiveSheet.ChartObjects(1).Activate
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ·PÁÂ~~

¦pªG¦³1­Ó¥H¤Wªº¹Ïªí©O??¯à§_¥H°j°é¤è¦¡§PÂ_¹Ïªí¦WºÙ??

TOP

¦^´_ 1# swtseng
Excel 2010 §ï¹Ïªí¦WºÙ: ¿ï¹Ïªí>ª©­±°t¸m>¤º®e>¹Ïªí¦WºÙ
a.gif

TOP

¦^´_ 3# swtseng
  1. Sub Ex()
  2.     Dim I As Variant
  3.     With ActiveSheet
  4.         For I = 1 To .ChartObjects.Count
  5.             MsgBox .ChartObjects(I).Name
  6.             .ChartObjects(I).Name = .ChartObjects(I).Name & " ­×§ï«á"
  7.         Next
  8.         '************
  9.         For Each I In .ChartObjects
  10.             MsgBox I.Name
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

½Ð°Ý¤@¤U¬°¦ó¹Ïªí¦WºÙ§ï¦n«á­«·s¶}ÀɦWºÙ¤S·|³Q§ï±¼!ÁÂÁÂ,§Úªºª©¥»¬OOFFICE2013

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD