İlerleme Çubuğunu PowerPoint Sunumuna Ekleme
![](http://img.brin-designs.com/img/games/382/insert-progress-bar-into-powerpoint-presentation.png)
İlerleme çubuğu eklemek makro aracılığıyla yapılmalıdır. Bir VBE veya görsel temel düzenleyici kullanarak, çubuğu PowerPoint'inize yerleştirmek ve istediğiniz renk, yükseklik ve genişliğini yapılandırmak için belirli bir kod yazabilirsiniz. Bu makalede nasıl açıklanacaktır.
PowerPoint Sunumuna İlerleme Çubuğu Ekle
İlerleme çubuğu genellikle PowerPoint slaydınızın en altına yerleştirilir ve içeriğinizin geri kalanıyla ilgili ince bir his bırakır. Çubuğu eklemek için, Araçlar > Makro > Visual Basic Düzenleyicisi'ne gidin .Açılan pencerede, Ekle > Modül'ü seçin ve sonra bu metni boş sayfaya ekleyin:
Alt AddProgressBar ()Hatada Devam Devam Et
ActivePresentation ile
X = 1 To .Slides.Count için
.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"
Sıradaki X:
İle bitmek
Son Alt
Sonra Dosya > Kapat > PowerPoint'e Dön'e gidin . Sunumunuza geri getirileceksiniz.
Şimdi Araçlar > Makro > Makrolar'a gidin . Proxy Çubuğu Ekle'yi seçin ve Çalıştır'a basın. Şimdi bir ilerleme çubuğu görüntülenmelidir:
![](http://img.brin-designs.com/img/games/382/insert-progress-bar-into-powerpoint-presentation-2.png)
İlerleme Çubuğunu PowerPoint'ten Kaldırma
İlerleme çubuğunuzu PowerPoint sunumunuzdan kaldırmak istiyorsanız, modülünüze geri dönün ve şu kodu değiştirin:S = .Slides (X) .Shapes.AddShape (msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12) öğelerini ayarlayın.
Takip ederek:
S = .Slides (X) .Shapes.AddShape (msoShapeRectangle, 0, 0, 0, 0) olarak ayarlayın
İlerleme çubuğunu kaldırmak için makroyu çalıştır.