Cara Membuat Gambar atau Objek Menghilang Secara Acak Dengan VBA PowerPoint

Cara Membuat Gambar atau Objek Menghilang Secara Acak Dengan VBA PowerPoint

Untuk menghilangkan gambar atau objek dalam sebuah persentasi kita bisa mengunakan custom animation yang berada pada menu, tetapi kita juga bisa menghilangkan dan memunculkan suatu gambar dengan menggunakan macros atau vba. Pertama-tama kita akan membuat gambar atau objek yang akan di hilangkan atau di munculkan seperti gambar di bawah ini

Klik Shapes>>Oval kemudian buat dua buah oval seperti gambar di atas, buat juga shapes yang berbentuk rectangle seperti gambar di atas. Beri nama pada setiap shapes agar memudahkan dalam pengkodeannya karna kita akan menggunakan vba, klik shapes oval kemudian pilih Format>>Selection Pane seperti pada gambar di bawah

Beri nama shpes oval seperti gambar di atas, lalu kita akan membuat script untuk menghilangkan dan memunculkan shapes dengan cara Alt+F11. Kemudian akan tampil seperti di bawah ini

masukkan script di bawah ini

Sub muncul()
With ActivePresentation.Slides(1)
    .Shapes("bulat_" & Int(Rnd * 2) + 1).Visible = msoTrue
End With
End Sub

Sub hilang()
With ActivePresentation.Slides(1)
    .Shapes("bulat_" & Int(Rnd * 2) + 1).Visible = msoFalse
End With
End Sub

maka akan seperti gambar di bawah

Kembali lagi pada slide powerpoint klik shapes "muncul">>Insert>>Action>>Run Macro seperti pada gambar di bawah

Begitu juga dengan shapes "hilang". Lalu jalankan dengan menekan F5 kemudian klik shapes "hilangkan" maka shapes akan hilang secara acak seperti pada gambar di bawah

Klik shapes "muncul" untuk memunculkan shapes yang hilang

Download Project nya di sini

Itulah Cara Membuat Gambar atau Objek Menghilang Secara Acak Dengan VBA PowerPoint bila kurang di mengerti silahkan berkomentar.