[¤À¨É] excel 2007 shaperange µLªk¥Î shape type for each

jarodz

Dim h_shape As Shape
Dim h_shaperange As ShapeRange

Set h_shaperange = Selection.ShapeRange

For Each h_shape in h_shaperange
       ........
Next

¤W­±ªºµ{¦¡¦bexcel 2003¨S¦³°ÝÃD¡A¦ý¬O¦bexcel 2007¡A
h_shape ·|¬O nothing ¡AµLªk¦¬¨ì shaperange ¸Ìªº shape
¥Ø«eª¾¹Dªº¤èªk¬O§â h_shape «Å§i¦¨ Object ´N¥i¥H¡A¦p¤U
Dim h_shape As Object

¥t¥~°Ý­Ó°ÝÃD¡A¦p¦ó§@«¬ºAÂàÅÜ
§â Object ¦bÅܦ^ Shape?

jarodz

¦^´_ 2# kimbal

·|³o»ò°Ý¬O¦]¬°§â Option Explicit¡A
¦pªG§â«Å§i¦¨ Object ªº shape ·í¨ä¥L sub routine ªº¤Þ¼Æ(shape) ·|¦³¿ù»~¡A
¤£·Q¦]¬°³o­Óbug§â¨ä¥L¤w¸g¼g¦nªº Sub routine ªº As Shape ³£§ï¦¨ As Object¡A
¤£ª¾³o­Ó bug ¦³¨S¦³ patch release?
ÁÂÁ¡C

BR,
Jarod

kimbal

Dim h_shape As Shape
Dim h_shaperange As ShapeRange

Set h_shaperange = Selection.ShapeRange

F ...
jarodz µoªí©ó 2012-1-9 01:58

³o­Ó¬Û«H¬O 2007 ªº¤@­Óbug,
2010 ¤w¸g­×¥¿¤F.

object¹ê»Ú¤W¤]Âà´«¤F¬°shape

¤U¸ü (39.48 KB)

2012-1-10 19:31