Cara Memasukkan "Progress Bar" Pada Slaid Power Point

Kepada anda yang kerap menggunakan Power point dalam membuat perbentangan, berikut kami kongsikan cara untuk memasukkan progress bar pada paparan slaid yang dipersembahkan bagi menunjukkan anggaran tempoh bagi jumlah slaid.

Pertama sekali masuk ke menu Macros.



Masukkan nama bagi macro tersebut dan seterusnya klik pada tombol create.



Pada paparan berikut, masukkan kod dibawah.
Sub ProgressBar()

End Sub



Letakkan cursor diantara dua kod tersebut.



kemudian tampalkan kod dibawah.
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("PB").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X:
End With

berikut kod yang telah siap ditampal.



Seterusnya tutup paparan kod tadi dan msuk ke menu Macros.



Pilih macro name yang anda buat sebelum ini, kemudian klik pada tombol Run.



Selesai, sekarang progress bar akan muncul pada paparan perbentangan slaid.



itulah sahaja sedikit perkongsian daripada kami kali ini, semoga bermanfaat.

Berkaitan