Public Sub über einen Makro In Arbeitsblatt einfügen

Sub Test()

  Dim CM As Object 'CodeModule

  Dim S As String

  S = _

    "Sub Hello_World()" & vbCrLf & _

    "  MsgBox ""Hello_World""" & vbCrLf & _

    "End Sub"

  With ThisWorkbook

    Set CM = .VBProject.VBComponents(.Worksheets(1).CodeName).CodeModule

  End With

  CM.AddFromString S

End Sub

Hallo Michael,

wenn Du die Textfelder (TF) über

Einfügen/Text:Textfeld

eingefügt hast, kannst Du das mit folgendem kleinen Makro erledigen (umschalten)

Public bBold As Boolean

Sub TextfeldFett()

bBold = Not bBold

For Each oTF In ActiveDocument.Shapes

If oTF.Type = msoTextBox Then

If oTF.TextFrame.HasText = True Then

oTF.TextFrame.TextRange.Font.Bold = bBold

End If

End If

Next oTFEnd Sub

Das Makro fügst Du über 

Entwicklertools/Makros/Erstellen: TextfeldFett

in die Normal.dotm ein.

Dazu musst Du dann nachstehenden Text zwischen die angelegten

Sub...End Sub

an die Einfügemarke einfügen

bBold = Not bBold

For Each oTF In ActiveDocument.Shapes

  If oTF.Type = msoTextBox Then

    If oTF.TextFrame.HasText = True Then

      oTF.TextFrame.TextRange.Font.Bold = bBold

    End If

  End If

Next oTF

in die erste Zeile musst du noch

Public bBold As Boolean

ein, damit das Umschalten klappt, solange das Dokument geöffnet ist.

Hallo,

ich habe unter Reporter den Code - Beginnt mit:

Public Sub MarkItemAsTask(ByVal AddDays As Long, _

in ein neues Modul eingefügt. Outlook neu gestartet. Ich habe aber keinen Menüpunkt um etwas auszuwählen und unter Makros erscheinen die Codefunktionen auch nicht. Was soll ich jetzt machen?

Ich würde es ja gern austesten aber kommen absolut nicht weiter. Der Link zu "wie ich ein Makro einfüge" verstehe ich nicht. Das Makro ist doch schon fertig oder muss da noch was eingefügt werden?

Ich habe Outlook 2016

Wäre super wenn du helfen kannst

Da es leider keinen Weg gibt dies mit PowerPoint-Standard-Funktionen zu lösen,

musste ich einen Workaround mit einem Add-In erstellen:

Modul «modAutoStart»:

Public cPPTObject As New modClassAutoStart
Public Sub Auto_Open()

  Call cPPTObject.AutoStartEvents

End Sub
Public Sub Auto_Close()

  Call cPPTObject.AutoCloseEvents

End Sub

Klassenmodul «modClassAutoStart»:

Public WithEvents PPTEvent As Application
Public Sub AutoStartEvents()

    Set cPPTObject.PPTEvent = Application

End Sub
Public Sub AutoCloseEvents()

   Set cPPTObject.PPTEvent = Nothing

   Set cPPTObject = Nothing

End Sub
Private Sub PPTEvent_PresentationNewSlide(ByVal Sld As Slide)

    'Wenn Es sich um die Richtige Master-Folie handelt

    Select Case Sld.CustomLayout.Name

        Case "Master-Folien-Name"

             'Tabelle der Vorlage = sichtbar

             Let ActivePresentation.SlideMaster.CustomLayouts(10).Shapes("TabellenName").Visible = msoTrue

             'Tabelle kopieren

         Call ActivePresentation.SlideMaster.CustomLayouts(10).Shapes("TabellenName").Copy

             'Tabelle einfügen

         Call Sld.Shapes.Paste

             ' Tabelle auf der Vorlage = unsichtbar

 Let ActivePresentation.SlideMaster.CustomLayouts(10).Shapes("TabellenName").Visible = msoFalse

        Case Else

    End Select

End Sub

Dieses Add-In kopiert eine "normale" Tabelle von der Master-Folie auf die Präsentations-Folie und stellt die Tabelle auf der Master Folie auf unsichtbar.

Hallo Stefan,
<br />läuft dieses Makro als erstes? Dann erkläre FN als Public oberhalb des Codes. Dann wird FN durch das Makro initialisiert und bleibt bestehen, solange Excel geöffnet ist:
<br />

Public FN As String

Sub Test()

Dim objFSO As Object

Dim objFile As Object

usw.

Claus
<br />