Masukkan Bar Kemajuan ke dalam Pembentangan PowerPoint

Komponen visual yang ditambah seperti bar progres boleh membuat persembahan PowerPoint anda lebih menarik kepada penonton. Bar perkembangan akan menunjukkan status slaid semasa berhubung dengan jumlah bilangan slaid dalam pembentangan.

Memasukkan bar kemajuan mesti dilakukan melalui makro . Menggunakan VBE, atau editor asas visual, anda boleh menulis kod khusus untuk memasukkan bar ke dalam PowerPoint anda dan mengkonfigurasi warna, ketinggian dan lebar bar anda yang diingini. Artikel ini akan menerangkan bagaimana.

Tambah Progress Bar untuk PowerPoint Presentation

Bar kemajuan biasanya diletakkan di bahagian bawah slaid PowerPoint anda, menjadikannya halus dalam hal kandungan anda yang lain. Untuk memasukkan bar, tuju ke Alat > Makro > Editor Visual Asas .

Dalam tetingkap yang terbuka, pilih Sisip > Modul, dan kemudian masukkan teks ini ke dalam halaman kosong:

 Sub AddProgressBar ()
Mengenai Ralat Ralat Seterusnya
Dengan ActivePresentation
Untuk X = 1 Untuk .Slides.Count
.Slides (X) .Shapes ("PB"). Padam
Tetapkan 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"
Seterusnya X:
Akhir Dengan
Sub Akhir

Seterusnya pergi ke Fail > Tutup > Kembali ke PowerPoint . Anda akan dibawa semula ke persembahan anda.

Sekarang pergi ke Tools > Macro > Macros . Pilih AddProcessBar dan tekan Execute . Bar kemajuan kini harus dipaparkan:

Keluarkan Progress Bar dari PowerPoint

Jika anda ingin mengeluarkan bar kemajuan anda dari persembahan PowerPoint anda, silakan kembali ke modul anda dan gantikan kod ini:

 Set s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12) 

dengan yang berikut:

 Tetapkan s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, 0, 0, 0, 0) 

Jalankan makro untuk menghilangkan bar kemajuan anda.