Can we delete SVG datas without looking at object docker, any script there, just hitting deleting them all at once.

pkg_sriram
6 months ago

Parents
  • 0 6 months ago

    Try this. I import SVG geo map data often and encounter this issue frequently. Been working fine for me thus far.

    Sub SVG_Cleanup()
    If ActiveShape Is Nothing Then Exit Sub

    ActiveDocument.BeginCommandGroup "Remove SVG data"
    Del_SVG ActiveSelectionRange.Shapes
    MsgBox "SVG Data deleted"
    ActiveDocument.EndCommandGroup
    End Sub

    Function Del_SVG(sa As Shapes)
    Dim s As Shape
    For Each s In sa
        If s.Type = cdrGroupShape Then
            Del_SVG s.Shapes
        Else
            s.Locked = False
            If s.Type = cdrNoShape Then
                s.Delete
            End If
        End If
    Next s
    End Function

Reply Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.