Chia sẻ template Powerpiont có code visualbasic (VBA)

Xin chia sẻ với các bạn một template powerpiont tự tay mình làm. Trong template đã có sẵn code visualbasic (VBA) tương tác với hình ảnh và video giúp cho bài trình diễn powerpiont của bạn trông chuyên nghiệp hơn, và đặc biệt là tạo sự khác biệt với người khác.

Hình ảnh template

Để chỉnh sửa code bên trong bạn hãy click trực tiếp vào video hay hình ảnh trên slide để sửa code cho phù hợp, khi click vào sẽ nhảy ra một cửa sổ mới để soạn thảo visualbasic dạng như bên dưới:

Cửa sổ soạn thảo visualbasic

Khi chỉnh sửa code xong, nhớ Crt+S để save lại. Code sẽ tự động cập nhật bên slide powerpiont

Code tương tác với hình ảnh:

Private Sub spn_Change()
 img.Picture = LoadPicture(ActivePresentation.Path & "\images\h" & spn.Value & ".jpg")
    img.Visible = False
    img.Visible = True
End Sub

Code tương tác với video:

Private Sub cmd1_Click()
 wmp.URL = ActivePresentation.Path & "\video\video1.wmv"
 lbl.Caption = "Mo ta noi dung video 1"
End Sub

Private Sub cmd7_Click()
 wmp.URL = ActivePresentation.Path & "\video\video7.wmv"
  lbl.Caption = "Reset All. Please chose a video..."
End Sub

Link download: http://www.mediafire.com/?0rc9dzf367h3dno