Office VBA 会发生什么 [关闭]

Office VBA 会发生什么？

vba
Sub MergeCells()
    Range("A1:A2").Merge
End Sub

vba
Sub CreateCustomToolbar()
    Dim MyToolbar As CommandBar
    Set MyToolbar = CommandBars.Add(Name:="My Toolbar")
    With MyToolbar
        .Visible = True
        .Position = msoBarTop
    End With
End Sub

vba
Sub CalculateAverage()
    Dim Total As Double
    Dim Count As Integer
    Dim Average As Double
    
    Total = 0
    Count = 0
    
    For Each Cell In Range("A1:A10")
        Total = Total + Cell.Value
        Count = Count + 1
    Next Cell
    
    Average = Total / Count
    
    MsgBox "The average is: " & Average
End Sub

vba
Sub GenerateSlides()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointSlide As Object
    
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    Set PowerPointPres = PowerPointApp.Presentations.Add
    Set PowerPointSlide = PowerPointPres.Slides.Add(1, 11) '11表示幻灯片布局
    
    PowerPointSlide.Shapes(1).TextFrame.TextRange.Text = "Hello, World!"
    
    PowerPointApp.Visible = True
End Sub