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

[µo°Ý] ¦p¦ó¬°shapes ©R¦W

¦^´_ 3# user999

À³¸Ó¦b¤@¶}©lcreate shape®É´N§âname³]©w¦n¡A¤§«á´N¥i¥H¥Îname¨Óaccess shape¡A¦p¤U¡A

        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, xbeg_075, ybeg_075, width_075, height_075)
                .Name = ''§A¨úªº¦W¦r"
                .Placement = xlFreeFloating
                .Line.Weight = 0
                .Fill.ForeColor.RGB = RGB(255, 255, 255)
        End With
   
Activesheet.shapes(''§A¨úªº¦W¦r") ´N·|¬O§A­nªºshape¡A
´£¿ô§A shape name ªº¦r¼Æ³Ì¦h¥u¯à 31 ¦r¡C


BR,
Jarod

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD