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

[µo°Ý] ¤£¥ÎVBA ¥Î¨Ï¥Î¸ê®Æ®w°ò¥»¥\¯à ¦Û°Ê¿z¿ï¥X¬Û¦Pªº¤å¦r°Ï¬q

[µo°Ý] ¤£¥ÎVBA ¥Î¨Ï¥Î¸ê®Æ®w°ò¥»¥\¯à ¦Û°Ê¿z¿ï¥X¬Û¦Pªº¤å¦r°Ï¬q

½Ð°ÝGBª©¥D
¦^´_  PD961A
­þ¨Ç¹Ï¬O¹w¥ý¦b16¬q¬Û¦Pªº¤å¦r°Ï¬q§@¦nªº 16­Ó¹Ï¤ù
©Ò¥H¤£¥ÎVBA  ¥Î¨Ï¥Î¸ê®Æ®w°ò¥»¥\¯à ¦Û ...
GBKEE µoªí©ó 2010-6-29 20:27
  • Sub Ex()
  • For Each e In Sheet1.Shapes
  •     If e.Type = 1 Then
  •         MsgBox e.Name
  •     End If
  • Next
  • End Sub


½Æ»s¥N½X
©ñ¶iÀɮפ¤¨S¦³°Ê§@? BookA.rar (44.68 KB)
½Ð°Ý¨BÆJ­þ¸Ì¦³°ÝÃD?
ÁÂÁ±z..

¦^´_ 1# PD961A
§A¦³¨S¦³°õ¦æ Exªºµ{§Ç??
½Ð¿ï©w¤u§@ªí¤W¥ô¤@¹Ï¤ù «ö¥kÁä ±N«ü©w¥¨¶° «ü¦VSheet3.Ex ¸Õ¸Õ¬Ý

TOP

¦^´_ 2# GBKEE
ÁÂÁª©¥D
¦ý¬O¥¦°õ¦æ§¹17¦¸¿ï³æ«á



µe­±¥u¦³1­Ó

³o¼Ë¬O¹ïªº¶Ü?(µ{¦¡ªº­ì·N¬O¶Ü?)
ÁÂÁ±z

TOP

¦^´_ 3# PD961A
¨S¿ù ¥D­n´N¬O MsgBox e.Name

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD