Conas gach pictiúr a scriosadh i raon cealla?

Má tá iliomad pictiúr daonra i do bhileog oibre, anois, ba mhaith leat cuid acu a scriosadh i raon sonraithe, conas a dhéileálann tú leis go tapa?

Scrios gach pictiúr i raon sonrach cealla le cód VBA

Scrios gach pictiúr i mbileog oibre nó i leabhar oibre iomlán le Kutools for Excel

Scrios gach pictiúr i raon sonrach cealla le cód VBA

Seo cód simplí VBA a chabhróidh leat na híomhánna i raon roghnaithe a scriosadh gan iad a scriosadh ceann ar cheann, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúl, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: scrios gach pictiúr i raon roghnaithe cealla:

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

nótaí: Sa chód thuas, A5: B8 an raon ar mhaith leat na pictiúir a scriosadh as, athraigh é go do riachtanas le do thoil.

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus scriosadh na pictiúir sa raon roghnaithe ag an am céanna, féach an scáileán:

Scrios gach pictiúr i mbileog oibre nó i leabhar oibre iomlán le Kutools for Excel

Más gá duit gach íomhá a scriosadh ó bhileog oibre nó ó leabhar oibre, beidh an Kutools for Excel 's Scrios Léaráidí & Rudaí is féidir le fóntais fabhar a dhéanamh duit.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Cliceáil Kutools > Scrios > Scrios Léaráidí & Rudaí, féach ar an scáileán:

2. Sa an Scrios Léaráidí & Rudaí bosca dialóige, seiceáil pictiúir ó na Scrios alt, agus ansin roghnaigh an scóip ar mhaith leat na pictiúir a scriosadh as faoin Feach isteach alt, féach an pictiúr:

3. Ansin cliceáil Ok cnaipe, agus scriosfar na pictiúir go léir ón mbileog oibre nó ón leabhar oibre iomlán mar a roghnaigh tú.

Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!