Public Class Ribbon1
 
 
 
    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As _
      RibbonUIEventArgs) Handles MyBase.Load
 
    End Sub
 
 
 
    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) _
      Handles Button1.Click
 
        Dim pres As PowerPoint.Presentation
        Dim slide As PowerPoint.Slide
 
 
        Dim textBox As PowerPoint.Shape = slide.Shapes.AddTextbox( _
        Office.MsoTextOrientation.msoTextOrientationHorizontal, 0, 0, 500, 50)
        textBox.TextFrame.TextRange.InsertAfter("Folientitel")
 
 
 
 
    End Sub
 
 
 
 
End Class