- Cara mengubah nama shapes dengan Selection Pane.
- Cara Memberikan Hyperlink pada Shapes.
- Code VBA Powerpoint untuk Merotasi Objek (Gambar/Shapes)
- Cara menjalankan Macro pada Shapes.
- Cara Setup Slideshow dengan Browsed at a kiosk.
- Cara menyimpan file presentasi Powerpoint yang berisi Macro.
Selamat menyaksikan.
Inilah Code VBA Powerpoint-nya. Silahkan Copy-Paste ke Module1 kita. Silahkan ganti teks berwarna merah sesuai dengan nama Shapes yang kita gunakan. Nama Shapes dapat kita lihat pada Menu Format>>Selection Pane.
Sub Anim()
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(2)
'Set the shapes in slide 2.
'Setel shapes pada Slide2
Set oShpA = .Shapes("Picture1")
Set oShpB = .Shapes("AB")
' Assign an interactive animation to shape A
'Memberikan animasi ke shape A
Set oEffect = .TimeLine.InteractiveSequences.Add _
.AddEffect(Shape:=oShpA, effectId:=msoAnimEffectSpin, _
trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be triggered by clicking on the shape A itself
'Setel Shape B. Animasi Shape A akan aktif saat kita klik Shape B.
oEffect.Timing.TriggerShape = oShpB
oEffect.Timing.RepeatCount = 999
End Sub
Sub pauseshow()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub runshow()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(2)
'Set the shapes in slide 2.
'Setel shapes pada Slide2
Set oShpA = .Shapes("Picture1")
Set oShpB = .Shapes("AB")
' Assign an interactive animation to shape A
'Memberikan animasi ke shape A
Set oEffect = .TimeLine.InteractiveSequences.Add _
.AddEffect(Shape:=oShpA, effectId:=msoAnimEffectSpin, _
trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be triggered by clicking on the shape A itself
'Setel Shape B. Animasi Shape A akan aktif saat kita klik Shape B.
oEffect.Timing.TriggerShape = oShpB
oEffect.Timing.RepeatCount = 999
End Sub
Sub pauseshow()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub
Sub runshow()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
Apakah anda melihat halaman ini dengan perangkat Mobile?. Apakah anda punya masalah dengan pemutar video pada browser yang digunakan?. Coba tonton langsung videonya di Youtube untuk tampilan yang lebih baik.
Tutorial Video About Rotate An Image With VBA Powerpoint
Ikuti informasi perkembangan blog kami melalui fanspage facebook kami di Supervba.
Terima kasih atas kunjungannya.