Imports Microsoft.Office.Tools.Ribbon
Imports Microsoft.Office.Interop
Imports System.Windows.Forms
Imports Microsoft.Vbe.Interop
 
 
Public Class Ribbon1
 
    'Dim oControl As PowerPoint.Shape
 
 
 
    Dim oControl As Forms.CommandButton = CType( _
          obj.Object, Microsoft.Vbe.Interop.Forms.CommandButton)
 
    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 oApp As New PowerPoint.Application
        Dim oPres As PowerPoint.Presentation
        Dim oSlide As PowerPoint.Slide
        Dim oShape As PowerPoint.Shape
 
        oApp = New PowerPoint.Application()
 
        oApp.Visible = True
        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMaximized
 
        oPres = oApp.ActivePresentation
        oSlide = oApp.ActiveWindow.View.Slide
 
        oControl = oSlide.Shapes.AddOLEObject(20, 20, 10, 0, _
ClassName:="Forms.CommandButton.1")
        With oControl
            .OLEFormat.Object.Name = "Button1"
            .OLEFormat.Object.Caption = "Test"
            .OLEFormat.Object.Font.Bold = True
            .OLEFormat.Object.Font.Name = "Verdana"
            .OLEFormat.Object.BackColor = RGB(0, 255, 0)
            .OLEFormat.Object.ForeColor = RGB(255, 255, 0)
            AddHandler .Click, AddressOf Button1_Click
        End With
 
 
 
    End Sub
 
    Private Sub Button1_Click()
 
        MsgBox("hallo")
 
    End Sub
End Class