Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

 

 

Vorgehensweise: in Excel einen Bereich markieren und dann in Powerpoint einfügen als : Default, Grafik oder EnhancedGraphik

 

 

  

    '------< @Loop: Folien >------

    Dim pptSlide As PowerPoint.Slide

    For Each pptSlide In ppt.Slides

        '----< Slide >----6

        Application.StatusBar = Now & " check Folie " & pptSlide.SlideNumber

           

       

        Dim pptShape As PowerPoint.Shape

        For Each pptShape In pptSlide.Shapes

            '--< Shape >--

            If pptShape.Type = msoTextBox Then

                '--< Ist_Textbox >--

                If Not pptShape.TextFrame.TextRange.Text Like "" Then

                     Dim sTitel As String

                     sTitel = pptShape.TextFrame.TextRange.Text

                     If sTitel Like "Kostenstelle:*" Or sTitel Like "Kostenstelle?:*" Then

                        '--< Ist_Textfeld_Kostenstelle >--

                        '< Kostenstelle_ermitteln >

                        Dim posStart As Integer

                        posStart = InStr(1, sTitel, ":", vbTextCompare)

                       

                        Dim sKostenstelle As String

                        sKostenstelle = Mid(sTitel, posStart + 1)

                        sKostenstelle = Trim(sKostenstelle)

                        '</ Kostenstelle_ermitteln >

                       

                        '< Anzeigen >

                        wb.Names("Kostenstelle_Ausgabe_KER").RefersToRange.Value = sKostenstelle

                        If Application.Calculation <> xlCalculationAutomatic Then Calculate

                        '</ Anzeigen >

                       

                        '< Range_kopieren >

                        Dim range_Ausgabe As Range

                        Set range_Ausgabe = ws_Ausgabe.Range(wb.Names("Ausgabebereich_KER").RefersToRange.Value)

                        range_Ausgabe.Copy

                        '</ Range_kopieren >

                       

                       

                       

                        '< bestehende_Grafik_ermitteln >

                        pptSlide.Select

                               

                        Dim shape_Picture As PowerPoint.Shape

                        Set shape_Picture = PowerPoint_Get_Excel_Picture(pptSlide) '*suche bestehendes Excelbild mit Name oder Alternativtext: ExcelBild

                        '</ bestehende_Grafik_ermitteln >

                       

                        '--< alte_Graphik_auswerten >--

                        '< correct >

                        If shape_Picture Is Nothing Then

                            Set shape_Picture = PowerPoint_Get_First_Picture(pptSlide) '*nimmt das erste Bild, falls nicht mit Excelbild beschrieben

                        End If

                        '< correct >

                       

                        '< init_Groesse >

                        Dim posLeft As Double:

                        Dim posTop As Double

                        Dim width As Double

                        Dim height As Double

                        '</ init_Groesse >

                        If Not shape_Picture Is Nothing Then

                            '--< Excel_Bild >--

                            posLeft = shape_Picture.Left

                            posTop = shape_Picture.Top

                            width = shape_Picture.width

                            height = shape_Picture.height

                           

                            '< alte Graphik loeschen >

                            shape_Picture.Delete

                            '</ alte Graphik loeschen >

                        End If

                        '--</ alte_Graphik_auswerten >--

                       

                        '< neue_Graphik_einfuegen >

                        pptShape.Select msoTrue

                        Dim insert_Shape As Object

                        Set insert_Shape = pptSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile, Link:=msoFalse)

                        insert_Shape.Top = posTop

                        insert_Shape.Left = posLeft

                        insert_Shape.LockAspectRatio = msoTrue

                        If height > 0 Then insert_Shape.height = height

                        insert_Shape.ZOrder msoSendToBack   'Z-Position: TOP

                        insert_Shape.Name = "ExcelBild"

                        insert_Shape.AlternativeText = "ExcelBild"

                        '</ neue_Graphik_einfuegen >

                       

                        Exit For

                       

                        '--</ Ist_Textfeld_Kostenstelle >--

                     End If

                End If

                '--</ Ist_Textbox >--

            End If

            '--</ Shape >--

        Next

        '----</ Slide >----

    Next

       

       

       

       

    '------</ @Loop: Folien >------

 

 

In Excel ein bestimmter Bereich kopiert und dann in PowerPoint eingefügt

In Excel kopiert

 

Excel in Powerpoint einfügen

1) aus der Zwischenablage (Default)

 

Einfügen über Paste mit Formatierung

 

 

Einfügen mit Excel->Einbetten €

 

 

Einfügen als Grafik

 

Mobile
»
Excel vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler
»
Excel vba: eine Liste automatisch per makro aktualisieren
»
Excel: Prüfen ob ein Worksheet vorhanden ist
»
Excel Code: in Powerpoint Grafiken oder Bereiche einfügen
»
Neu (22.03.20Excel fehler: -2147188160 LinkFormat.BreakLink : Invalid request. This operation requires a linked object.19 14:59:14)
»
Excel vba: Blätter in eine neue Datei kopieren
»
Excel Code für ein kleines Addin
»
Excel Checkbox in vba makro setzen

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de