delete shape

  1. 3 bulan yang lalu

    selamat malam All master dan member @Be.Org,
    saya mau tanya script untuk menghapus shape, yang mana shape tersebut namanya selalu berubah, karena prosesnya dari copy, jadi nama shape nya setiap proses akan menjadi picture 1, picture 2, picture 3, dst.

    Sub DeleteImage()
    Dim myImage As Shape
    Dim ws As Worksheet
    Set ws = Worksheets("gambar")
    Set myImage = ws.Shapes("Picture 1")
    myImage.Delete
    End Sub

    bagaimanakah menyesuaikan nama shape yang selalu berubah, terima kasih,
    karen saya pakai
    Set myImage = ws.Shapes("Picture " &"*"),
    tapi tidak bisa. terima kasih.

  2. Mungkin seperti ini untuk hapus Shape yang Tidak Dipakai (Tinggal Dibikin Pengecualian Untuk Yang Kepakai)

  3. Di sunting 3 bulan yang lalu oleh bejo

    terima mkasih banyak master @herry sudah banyak membantu, jadi referensi untuk belajar. kalo script untuk menghapus shape dengan kriteria shape name berawalan "picture " (misalnya), gmana ya master??

  4. Mungkin Seperti ini

  5. haduhh, pass bgt master, terima kasih banyak, semoga tuhan selalu mempermudah semua pekerjaan anda, thanxZZZ

 

atau Mendaftar untuk ikut berdiskusi!