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

§R¹Ï¤ù¤£§R«ö¶s

§R¹Ï¤ù¤£§R«ö¶s

·Q½Ð°Ý¡A§Ú¦b¤u§@ªí¤W©ñ¤F¤@­Ó«ö¶s¡A¥Î¨Ó§R¹Ï¤ù¡A¥i¬O«ö¶s¤@«ö¤U¡A³s«ö¶s¥»¨­¤]³Q§R°£¤F¡A­n¦p¦ó¤~¯à¥u§R¹Ï¤ù¡A«O¯d«ö¶s

§Úªº»yªk:
.Pictures.Delete
Jess

¦^´_ 1# jesscc


    µ¹§A°Ñ¦Ò¡A.Type=8=>«ö¶s
    Dim shap As Shape
    For Each shap In .Shapes
        If shap.Type <> 8 Then
            shap.Delete
        End If
    Next

TOP

¨S¥Î¡A«ö¶sÁÙ¬O¦Û§R¤F
Jess

TOP

¦^´_ 3# jesscc


    ¨º´N12¸Õ¸Õ
If shap.Type <>12 Then

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2016-7-22 23:17 ½s¿è

¦^´_ 3# jesscc


    ­Y¤£ª¾type¬°¦ó¥i¥H§Q¥Î¤U¦C¥N½X¡A¥H³v¦æ°õ¦æ¨Ó§ä¥XTYPE

With Sheets("¶K¹Ï")
    Dim xx
    Dim shap As Shape
    For Each shap In .Shapes
        xx = shap.Type
        xx = shap.Name
    Next
End With

TOP

OK¤F¡AÁÂÁÂ
Jess

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD