Tìm sự kiện mở file trong VBA của PowerPoint

[voda]

Các bạn cho hỏi: Trong VBA của PowerPoint có sự kiện mở file giống như Workbook_Open trong Excel không? Và có sự kiện Slide_Activate giống như WorkSheet_Activate không? Mình tìm mãi không thấy. (Mình đang dùng PPT2003)

 

[dat2007]

Có đấy chứ bác

Private Sub App_PresentationOpen(ByVal Pres As Presentation) 
   With Pres     
       Set CS3 = .ColorSchemes(3) 
       CS3.Colors(ppBackground).RGB = RGB(240, 115, 100) 
       With Windows(1)
         .Selection.SlideRange.ColorScheme = CS3
         .ViewType = ppViewSlide        
       End With
   End With
End Sub

  Private Sub App_PresentationNewSlide(ByVal Sld As Slide)
      With ActivePresentation
          Set CS3 = .ColorSchemes(3)
          CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)
          Windows(1).Selection.SlideRange.ColorScheme = CS3
      End With
      If Sld.Layout <> ppLayoutBlank Then
          With Sld.Shapes(1)
              If .HasTextFrame = msoTrue Then
                 .TextFrame.TextRange.Text = "King Salmon"
              End If
          End With
      End If
  End Sub

Bác xem thêm trong File đính kèm

 

[ongtrungducmx25]

sao cái này không có cái nào việt hóa hết, toàn là tiếng anh không đọc không mấy hiểu lắm

 

[dat2007]

sao cái này không có cái nào việt hóa hết, toàn là tiếng anh không đọc không mấy hiểu lắm

Bạn chịu khó học Eng đi vì hầu hết bây giờ các tài lệu hay liên quan đến IT và các lĩnh vực khác chủ yếu là bằng Eng

 

[voda]

Nguyên văn bởi [B]dat2007[/B]
Private Sub App_PresentationOpen(ByVal Pres As Presentation) 
   With Pres     
       Set CS3 = .ColorSchemes(3) 
       CS3.Colors(ppBackground).RGB = RGB(240, 115, 100) 
       With Windows(1)
         .Selection.SlideRange.ColorScheme = CS3
         .ViewType = ppViewSlide        
       End With
   End With
End Sub

Bạn hướng dẫn dùm cách dùng đoạn code trên. Cám ơn nhiều.

 

[TranThanhPhong]

sao cái này không có cái nào việt hóa hết, toàn là tiếng anh không đọc không mấy hiểu lắm

Bác Đức vào Blog này xem nhe http://vn.myblog.yahoo.com/onceclick/
Có 5 bài viết về VBA trong PowerPoint rất hay.

Bác có thể tìm quyển Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive" của David M. Marcovitz để tham khảo thêm về VBA trong PowerPoint.

http://www.bookilook.com/search.aspx?search=Powerful+PowerPoint+for+Educators&lang=vi

Thanh Phong