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

[¤À¨É] »{ÃѤu§@ªí

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-29 20:28 ½s¿è

¦^´_ 3# PD961A
­þ¨Ç¹Ï¬O¹w¥ý¦b16¬q¬Û¦Pªº¤å¦r°Ï¬q§@¦nªº 16­Ó¹Ï¤ù
©Ò¥H¤£¥ÎVBA  ¥Î¨Ï¥Î¸ê®Æ®w°ò¥»¥\¯à ¦Û°Ê¿z¿ï¥X¬Û¦Pªº¤å¦r°Ï¬q ´NÅã¥Ü¥X¤£¦P¹Ï¤ù
  1. Sub Ex()
  2. For Each e In Sheet1.Shapes
  3.     If e.Type = 1 Then
  4.         MsgBox e.Name
  5.     End If
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 10# PD961A
1.B1 ªº¿z¿ï ¿ï¾Ü¥þ³¡
2.¿ï¨ú¾ã­Ó¤u§@ªí ±N·Æ¹«²¾¨ì ¥ô¤@¦Cªº¼ÐÃD¦ì¸m «ö¥kÁä ->¨ú®øÁôÂÃ

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD