lpk187

¦^´_ 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

lpk187

¦^´_ 3# jesscc


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

lpk187

¦^´_ 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