VBA Makro | Verlinkung Excel zu PowerPoint

  • Excel

    VBA Makro | Verlinkung Excel zu PowerPoint

    Hallo zusammen,

    ich versuche mich gerade zum ersten Mal an einer Verlinkung von Excel zu Powerpoint mit VBA Makros.



    Aufgabenstellung:

    In meiner Excel-Zelle habe ich eine Dropdown-Funktion integriert, mit welcher 4 verschiedene Texte (A,B,C,D) ausgewählt werden können.

    Nun möchte ich, je nachdem welcher Text in meiner Zelle ausgewählt wurde, die Hintergrundfarbe einer bestimmten PowerPoint-Form (Shape) einfärben.

    Hierfür gilt:

    Text A (Zelle in Excel) --> Farbe grau (Shape in PowerPoint)

    Text B (Zelle in Excel) --> Farbe orange (Shape in PowerPoint)

    Text C (Zelle in Excel) --> Farbe gelb (Shape in PowerPoint)

    Text D (Zelle in Excel) --> Farbe grün (Shape in PowerPoint)

    In jeder PowerPoint-Form befindet sich bereits ein Text, dieser soll seine Schriftfarbje nach Hintergrund ebenfalls anpassen. (Grauer Hintergrund = weiße Schriftfarbe, orangener Hintergrund = schwarze Schriftfarbe, gelber HIntergrund = schwarze Schriftfarbe, grüner Hintergrund = weiße Schriftfarbe).



    Folgendes Vorgehen habe ich mir hierfür überlegt.

    1. Das Makro wird in der Excel programmiert und öffnet bei Start des Makro automatisch eine Kopie der PowerPoint-Datei.

    2. Nun stelle ich eine Verlinkung der Excel zur PowerPoint her, insb. der Zellen zu den entsprechenden Shapes in PowerPoint.

    3. Als nächstes stelle ich eine If...then und IfElse-Anweisung auf, indem ich bspw. sage: Wenn das Feld "A1" in der Excel den Text "A" beinhaltet, dann Färbe das Feld "A1" in der PowerPoint-Datei grau und ändere die Schriftfarbe auf weiß.

    Da ich insgesamt 80 Zellen in Excel habe, die jeweils Shapes in Pptx zugeordnet werden müssen, würde es sich vermutlich anbieten eine Schleife einzubauen. Allerdings gebe ich mich auch damit zufrieden, erstmal die Verlinkung von einer bestimmten Zelle in Excel zur einer bestimmten Shape in PowerPoint herzustellen, diese mit der entsprechenden Farbe zu befüllen und die Schriftfarbe entsprechend anzupassen.

    Anbei ein erster Startversuch - wie gesagt ich bin noch Anfänger - und dies ist noch längst keine fertige Lösung. Bisher habe ich nur das automatische Öffnen der PowerPoint-Datei bei Start des Makros fehlerfrei programmiert bekommen.


    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub MES_Rollout_Lib_15()
    5. Dim MES_sheet As Presentation
    6. Dim path As String
    7. Dim file_name As String
    8. Dim pptApp As Object
    9. Dim Folie As Slide
    10. Dim form As Shape
    11. Dim wb As Workbook, wks As Worksheet
    13. path = "Pfad PowerPoint Datei"
    14. file_name = "Name PowerPoint Datei"
    16. Set pptApp = CreateObject("PowerPoint.Application")
    17. pptApp.Visible = True
    19. With pptApp.Presentations.Open(path, False, True, True)
    20. End With
    22. Set MES_sheet = pptApp.ActivePresentation
    24. Folie = MES_sheet.Slides(1)
    26. If ThisWorkbook.ActiveSheet.Range("A10").Text = ("Text A") Then
    27. Folie.TextBox("Textfeld 4").BackColor = 15
    29. End If
    34. 'Hier noch der Versuch einer Schleife, allerdings fehlt hier noch die Verlinkung von Excel zu PowerPoint
    36. Dim rg As Range
    37. Dim c As Range
    39. Set rg = ThisWorkbook.ActiveSheet.Range("A10:B25")
    41. 'Set Folie = MES_sheet.Slides(1)
    43. For Each c In rg
    45. If c.Value = "Text A" Then
    46. Folie.Shape("A1").BackColor = 15 'Hintergrundfarbe
    47. Folie.Shape("A1").Font.ColorIndex = 2 'Änderung Schriftfarbe
    49. ElseIf c.Value = "Text B" Then
    50. Folie.Shape("A1").BackColor = 44
    51. Folie.Shape("A1").Font.ColorIndex = 2
    53. ElseIf c.Value = "Text C" Then
    54. Folie.Shape("A1").BackColor = 6
    55. Folie.Shape("A1").Font.ColorIndex = 2
    57. ElseIf c.Value = "Text D" Then
    58. Folie.Shape("A1").BackColor = 4
    59. Folie.Shape("A1").Font.ColorIndex = 2
    62. End If
    64. Next c
    66. End Sub




    Ich freue mich auf jeden Rat und vielen Dank im Voraus! Solltet ihr noch weitere Infos benötigen, meldet euch gerne.

    Lieben Gruß

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()