Random Video Generator menjadi sangat penting keberadaannya, disaat membutuhkan banyak video untuk media promosi yang direlasikan dengan variasi keyword yang ada. Menariknya, ratusan hingga ribuan video promosi ini bisa dijadikan media backlink menuju website yang kita miliki, gurihnya double impact!

Sekedar sebagai bahan referensi saja, silahkan ketikkan di Google Chrome, “Kanopi Kaca Tempered Bekasi“, insya Allah ada video saya yang ada dihalaman 1, yang dilengkapi dengan nomor telpon saya. Bisa saja warga Bekasi yang ingin pasang kanopi kaca tempered akan langsung menelpon saya dan bisa juga membuka youtube video untuk mengetahui seperti apa karyanya. Nah, pada saat buka video, maka akan mengalir backlink ke website saya. Itulah salah satu keseruan dari video youtube. Bagaimana caranya membuat ratusan hingga ribuan video youtube, ikuti step demi step berikut ini.

Random Video Generator, Step By Step

Pertama, pastikan memiliki 5 bahan pokok yang akan menjadi “bahan bakar” untuk membuat ratus video promosi, diantaranya :

1. Microsoft PowerPoint.
2. Microsoft Excel.
3. Beragam gambar yang berhubungan dengan media promosi
4. Beragam Video clip tentang produk yang dipromosikan.
5. beragam audio clip free license yang akan menjadi audio latar belakang.

Setelah memiliki 5 bahan pokok tersebut, pastikan microsoft Power Point memiliki tab “Developoer”, caranya silahkan klik disini

Langkah berikutnya adalah melakukan :

1. Spin label pada masing masing slide
2. Spin image disetiap slide yang memiliki image
3. Spin Audio agar supaya audio background berbeda-beda
4. Spin Video clip pada slide yang memiliki video clip
5. Spin transition time pada masing masing slide

Apabila ke 5 proses spin ini dilakukan, sangat dipastikan, 100% video yang dibuat pastilah unik dan berbeda pada masing masing video promosi. Selngkapnya, silahkan saksikan video Youtube Tutorial Random Video Generator berikut ini.

Script VBA Macro PowerPoint

Berikut ini adalah script VBA Macros yang digunakan sesuai peruntukannya, yaitu :

1. Spin label yang ada pada slide PowerPoint, agar berubah menjadi label yang baru. Contoh kali ini dilakukan spin label di slide 1.
   Sub EditLable()<br /><br /> ActivePresentation.Slides(1).Shapes(“SHAPE-JUDUL01”).TextFrame.TextRange = “PELATIHAN”<br /><br /> ActivePresentation.Slides(1).Shapes(“SHAPE-JUDUL01”).TextFrame.TextRange = “SHORTS VIDEO GENERATOR”<br /><br /> ActivePresentation.Slides(1).Shapes(“SHAPE-CTA”).TextFrame.TextRange = “0812-3456-7890″<br /><br /> End Sub
2. Spin Image yang dicontohkan pada slide 2. Secara prinsip, image tidak bisa di-spin tetapi di hapus dan diganti dengan image yang baru.
   Sub AddImage()<br /><br /> Dim ShpPicture As Shape<br /><br /> XPos = ActivePresentation.Slides(2).Shapes(“SHAPE-IMAGE”).Left<br /><br /> YPos = ActivePresentation.Slides(2).Shapes(“SHAPE-IMAGE”).Top<br /><br /> WPos = ActivePresentation.Slides(2).Shapes(“SHAPE-IMAGE”).Width<br /><br /> HPos = ActivePresentation.Slides(2).Shapes(“SHAPE-IMAGE”).Height</p><br /> <p> Set ShpPicture = ActivePresentation.Slides(2).Shapes(“SHAPE-IMAGE”)<br /><br /> ShpPicture.Delete<br /><br /> Set ShpPicture = ActivePresentation.Slides(2).Shapes.AddPicture(“E:\OFFICE\TEST\Image02.JPG”, msoFalse, msoTrue, XPos, YPos, WPos, HPos)<br /><br /> ShpPicture.Name = “SHAPE-IMAGE”<br /><br /> ShpPicture.ZOrder msoSendToBack<br /><br /> End Sub
3. Script berikutnya adalah Spin Audio. Pastikan menggunakan Audio Free License agar video yang dibuat aman dari copyright. Silahkan download dari Studio.Youtube.Com.
   Sub AddAudio()<br /><br /> ActivePresentation.Slides(1).Shapes(“SHAPE-AUDIO”).Delete<br /><br /> With ActivePresentation.Slides(1).Shapes.AddMediaObject2(FileName:=”E:\OFFICE\TEST\NightRunAway.mp3″, Left:=0, Top:=0, Width:=10, Height:=10)<br /><br /> .ZOrder msoSendToBack<br /><br /> .Name = “SHAPE-AUDIO”<br /><br /> With .AnimationSettings<br /><br /> .PlaySettings.PlayOnEntry = True<br /><br /> .PlaySettings.PauseAnimation = False<br /><br /> .PlaySettings.StopAfterSlides = 999<br /><br /> .AdvanceMode = ppAdvanceOnTime<br /><br /> End With<br /><br /> End With<br /><br /> End Sub
4. Lakukan spin Video Clip, agar benar-benar unik hasil pembuatan videonya. Proses penggantian video, sama dengan penggantian audio dan image, yaitu dihapus dulu, baru ditambah video baru. Berikut ini scriptnya.
   Sub AddMovie()<br /><br /> XPos = ActivePresentation.Slides(1).Shapes(“SHAPE-VIDEO”).Left<br /><br /> YPos = ActivePresentation.Slides(1).Shapes(“SHAPE-VIDEO”).Top<br /><br /> WPos = ActivePresentation.Slides(1).Shapes(“SHAPE-VIDEO”).Width<br /><br /> HPos = ActivePresentation.Slides(1).Shapes(“SHAPE-VIDEO”).Height</p><br /> <p> ActivePresentation.Slides(1).Shapes(“SHAPE-VIDEO”).Delete<br /><br /> With ActivePresentation.Slides(1).Shapes.AddMediaObject2(FileName:=”E:\OFFICE\TEST\Testimonikanopikaca.mp4″, Left:=XPos, Top:=YPos, Width:=WPos, Height:=HPos)<br /><br /> .Name = “SHAPE-VIDEO”<br /><br /> With .AnimationSettings<br /><br /> .PlaySettings.PlayOnEntry = True<br /><br /> .PlaySettings.HideWhileNotPlaying = True<br /><br /> .AdvanceMode = ppAdvanceOnTime<br /><br /> End With<br /><br /> End With<br /><br /> End Sub
5. Terakhir, mengatur Transition Animation, yaitu jeda transisi antar slide yang diatur berbeda pada masing masing slide dan unik pada masing masing video. Berikut scriptnya.
   Sub Transition()<br /><br /> With ActivePresentation.Slides(1).SlideShowTransition<br /><br /> .AdvanceOnClick = msoFalse<br /><br /> .AdvanceOnTime = msoTrue<br /><br /> .AdvanceTime = 57.52<br /><br /> End With<br /><br /> End Sub

Setelah mengenal script pada masing masing perubahan di VBA Macros Power Point, waktunya kita rangkai menjadi satu kesatuan dengan menggunakan Macros Excel yang dikendalikan oleh VBA PowerPoint. Script kali ini contohnya menggunakn 4 Slide yang akan menghasilkan 5 Video unik. Agar hasilnya lebih baik, siapkan 5 Gambar, 5 Audio Free License, 5 Video Clip dan 5 variasi label yang unik. Berikut ini Script keseluruhan proses yang menggunakan database Excel.

Script VBA PowerPoint + Excel (Final)

Berikut ini adalah script final untuk contoh pembuatan random video generator. Contoh kali ini menggunakan PowerPoint 4 Slide dan Excel 5 baris untuk menghasilkan 5 video yang unik. Selanjutnya kembangkan sendiri sesuai selera Anda. Anda dapat juga mendownload contoh Powepoint dan contoh Excel melalui Link Google Drive.

Semoga bermanfaat, bila bermanfaat, mohon kesediaannya untuk subscribe dan like channel saya. Terima kasih.