Tabellenkalkulation

markro hilfe

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

ich brauchte ein excel makro das einen bestimmten teil markiert z.B. A2:G5 und diesen in eine powerpoint presentation mit dem namen: "bericht", auf folie 2 als 4. objekt einfügt. Damit meine ich das auf der folie bereits eine textbox und zwei tabellen vorhanden sind. A2:G5 soll nicht als bild sondern als tabelle eingefügt werden (wenn das nicht gehrt dann als textfeld aber das wäre nicht so gut) um A2:E8 geht ein rahmen. thx

Antwort 1 von coros

Hallo gert,

schau mal unter

https://supportnet.de/threads/1386980

oder auch unter

https://supportnet.de/threads/1382277

Nach, dort wurde diese Woche so etwas schon mal bearbeitet. Eventuell hilft es Dir etwas weiter. Bei Fragen melde Dich bitte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von coros

Hallo noob_der_makros,

sorry, dass ich Dich mit Gert angesprochen habe. Da war noch der Name an den ich meine letzte Antwort zu einem Beitrag geschriebene habe (@schnallgonz) in meinem Kopf. Wollte Dir nicht einen anderen Namen verabreichen. ;-)

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Antwort 3 von noob_der_makros

der 2. link geht bei mir nicht...
mit dem ersten kann ich nicht viel anfangen, da, da nur eine spalte verschoben wird....

Antwort 4 von coros

Hallo noob_der_makros,

nachfolgend der nochmal der 2. Link mit der Adresse.

Wenn es unter dem ersten Link bereits eine Lösung gibt, erweitere einfach den Bereich der zu kopierenden Daten.

Übrigens ein "Hallo" am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Wenn Du zum Bäcker gehst sagst Du ja auch beim Reingehen "Guten Tag" und beim Gehen "Auf Wiedersehen". Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 5 von noob_der_makros

ich hab doch thx geschrieben
und ehrlich gesagt ich war noch nie bei einem bäcker...

Antwort 6 von noob_der_makros

und der geht nicht so einfach zu erweitern...
dann kommt eine fehlermeldung

das fast richtige ist das 1. im 1.link

Antwort 7 von coros

Hallo noob_der_makros,

Deine Antwort 5 ist ein wenig frech. Findest Du nicht auch?

Nachfolgend ein Makro, dass Dir einen Bereich (A1:C10) in eine Präsentation in die 2. Folie kopiert. Kopiere das Makro in ein StandardModul.

Sub Tabelle_als_Tabelle()
Dim PowerPoint_Application As PowerPoint.Application
Range("A1:C10").Copy
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
    .Visible = True
    .WindowState = ppWindowMinimized
    .Presentations.Open Filename:="C:\Dateiname.ppt"
    .ActivePresentation.Slides(2).Select
    .ActiveWindow.View.Paste
End With
End Sub

In der Zeile

    .Presentations.Open Filename:="C:\Dateiname.ppt"

musst Du noch den Dateinamen der Präsentation angeben, in das die Tabelle kopiert werden soll.
MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 8 von noob_der_makros

thx
und antwort 5 war ernst gemeint...

Antwort 9 von noob_der_makros

ich habs jetzt bei meinem makro angehangt
jetzt kopiert es zeilen in eine tabelle und schickt sie nach pp

nochmal danke

Antwort 10 von noob_der_makros

ich hab eine neue frage:
wie kann ich von excel aus die gröse von der tabelle verändern die ich durch dein makro nach pp kopiert habe?

Antwort 11 von noob_der_makros

bist du noch da?
coros?

Antwort 12 von coros

Hi noob_der_makros,

eigentlich sollte ich nach Deinen Antworten aus Antwort 5 und 8 Dir nicht mehr helfen. Aber ich werde es dennoch tun, da ich an das Gute im Menschen glaube.

Nachfolgend mein Beipsiel´makro aus Antwort 7 mit dem Zusatz, der es Dir ermöglicht bei der Übergabe an Powerpoint die Position der Tabelle festzulegen und die Breite und Höhe zu verändern.

Sub Tabelle_als_Tabelle()
Dim PowerPoint_Application As PowerPoint.Application
Range("A1:C10").Copy
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
    .Visible = True
    .WindowState = ppWindowMinimized
    .Presentations.Open Filename:="C:\Dateiname.ppt"
    .ActivePresentation.Slides(2).Select
    With .ActiveWindow
        .View.Paste
        Rem: Position von links
        .Selection.ShapeRange.Left = 200
        Rem: Postion von Oben
        .Selection.ShapeRange.Top = 200
        Rem: Angabe Breite
        .Selection.ShapeRange.Width = 250
        Rem: Angabe Höhe
        .Selection.ShapeRange.Height = 500
    End With
End With
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 13 von noob_der_makros

das war aber wirklich nicht frech gemeint
ich war noch nie bei einem Bäcker!

danke vielmals für das tolle makro!!

Antwort 14 von noob_der_makros

.....
......
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
Range("AO12:AR22").Copy
With PowerPoint_Application
.Visible = True
.WindowState = ppWindowMinimized
.Presentations.Open Filename:="C:\Documents and Settings\SantnerC\Desktop\Defect Density master.ppt"
.ActivePresentation.Slides(2).Select
With .ActiveWindow
.View.Paste
Rem: Position von links
.Selection.ShapeRange.Left = 200
Rem: Postion von Oben
.Selection.ShapeRange.Top = 200
Rem: Angabe Breite
.Selection.ShapeRange.Width = 250
Rem: Angabe Höhe
.Selection.ShapeRange.Height = 500
End With
End With
End Sub

da zeigt er einen fehler an!
muss ich vohrher was einstellen?

Antwort 15 von coros

Hi noob_der_makros,

befindet sich in der Folie noch mehr als nur die eingefügte Tabelle?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 16 von helfer_001

fragetext:

Zitat:
Damit meine ich das auf der folie bereits eine textbox und zwei tabellen vorhanden sind

kurz: ja

Antwort 17 von noob_der_makros

gut, dann brauch ichs nicht mehr schreiben

Antwort 18 von noob_der_makros

Hey helfer 001 war ja im beitrag aus dem link^^

Antwort 19 von coros

Hi noob_der_makros

oder soll ich Dich vielleicht doch helfer_001 nennen?

Führe mal bitte folgendes Makros aus und teile mir mit, welche Namen er dort ausließt.

Sub Objektnamen_in_Powerpointfolie_auslesen()
Dim PowerPoint_Application As PowerPoint.Application, iShape As Integer
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
    .Visible = True
    .WindowState = ppWindowMinimized
    .Presentations.Open Filename:="C:\Documents and Settings\SantnerC\Desktop\Defect Density master.ppt"
    .ActivePresentation.Slides(2).Select
    For iShape = 1 To .ActiveWindow.Selection.SlideRange.Shapes.Count
        MsgBox .ActiveWindow.Selection.SlideRange.Shapes(iShape).Name
    Next
End With
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 20 von noob_der_makros

text box 2
text box 4
text box 183
Groub 783
Groub 749

und das sagt dir was...
und was hat mich verraten?

Antwort 21 von helfer_001

und befor du da auch draufkommst makro_anfänger war auch ich....

Antwort 22 von coros

Hi noob_der_makros,

sorry, aber da gibt es eine Differenz wischen dem was Du in Deiner 1. Frage, bzw. in Antwort 16 geschrieben hast und was Du nun in Antwort 20 schreibst. Erst sind es eine TextBox und 2 Tabellen, nun sind es schon 3 TextBoxen und 2 Tabellen. Was stimmt denn nun?

Und wenn Du Dir nicht langsam angewöhnst, ein Hallo am Anfang und einen Gruß am Ende zu setzen, klinke ich mich genau wie bei Deinem letzten Beitrag aus.
Ich bin hier nicht Dein Hans-Wurst, den man ansprechne kann wie Du es möchtest. Ein wenig Höflichkeit sollte für eine kostenlose Hilfe wohl verlangt werden dürfen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 23 von helfer_001

ich hab mir extra einen namen ausgedacht der garnicht zu mir passt also wie bist du da draufgekommen?

es war bestimmt der fehlerdichtebericht, oder?

Antwort 24 von helfer_001

hallo
da war eine winzige leere textbox in der folie die hab ich nicht gesehen

text box 2
text box 183
Groub 783
Groub 749

das ist jetzt richtig

gruß

Antwort 25 von helfer_001

hallo

coros?

gruß

Antwort 26 von coros

Hallo helfer_001,

ich weiß zwar nicht, was die Spielerei mit Deinen Namen soll, aber Du wirst schon Deine Gründe habe (zumindestens bei Deinem Auftreten hier).

Kopiere nachfolgensdes Makro wieder in ein StandardModul.

Sub Tabelle_als_Tabelle()
Dim PowerPoint_Application As PowerPoint.Application, iShape As Integer, _
iShape_Name As String
Range("A1:C10").Copy
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
    .Visible = True
    .WindowState = ppWindowMinimized
    .Presentations.Open Filename:="C:\Documents and Settings\SantnerC\Desktop\Defect Density master.ppt"
    .ActivePresentation.Slides(2).Select
    With .ActiveWindow
        .View.Paste
        For iShape = 1 To .Selection.SlideRange.Shapes.Count
            If .Selection.SlideRange.Shapes(iShape).Name <> "Text Box 2" And _
            .Selection.SlideRange.Shapes(iShape).Name <> "Text Box 183" And _
            .Selection.SlideRange.Shapes(iShape).Name <> "Group 783" And _
            .Selection.SlideRange.Shapes(iShape).Name <> "Group 749" Then
                iShape_Name = .Selection.SlideRange.Shapes(iShape).Name
            End If
        Next
        With .Selection.SlideRange.Shapes(iShape_Name)
            Rem: Position von links
            .Left = 50
            Rem: Postion von Oben
            .Top = 50
            Rem: Angabe Breite
            .Width = 200
            Rem: Angabe Höhe
            .Height = 200
        End With
    End With
End With

So sollte es funktionieren. Aber nur solange, wie die beiden TextBoxen und Tabellen in der Folie nicht ausgetauscht werden. Aber davon hast Du ja auch nichts geschrieben.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 27 von helfer_001

hallo

das makro fonktioniert gut
aber hast du villeicht ein makro das die exakte position einer tabelle in einem pp project feststellt?
die gleiche folie + group 777
von group 777 soll die größe ermittelt werden

und ich hab meinen namen geändert weil du gesagt hast das du mir nicht mehr helfen willst....
gruß

Antwort 28 von helfer_001

danke für deine hilfe

Antwort 29 von coros

Hallo helfer_001,

wie kann denn jetzt auf einmal das Objekt "group 777" sich in der Folie befinden, wenn vorher die von Dir angegebenen Objekte (group 749 und 783) sich dort befunden haben? Hast Du Dich da eventuell verschrieben mit der gleichen Folie?

Wie Du siehst, helfe ich Dir auch noch, aquch wenn Du unter dem Namen "helfer_001" schreibst. Wenn Du hier ein gewisses vernünfitges Verhalten an den Tag legst, brauchst Du Dir nicht dauern andere Namen auszudenken, sondern kannst immer unter dem gleichen Namen posten.

Wundere Dich nicht, wenn jetzt eine Antwort nicht sofort kommt. Ich habe einen Termin außer Haus. Das kann unter Umständen ein wenig dauern. Also nicht nervös werden, wenn die Antwort erst später kommt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 30 von helfer_001

hallo

Zitat:
die gleiche folie + group 777

group 777 ist auf der folie drauf.
group 777 lösche ich aber weil ich an dieser position die tabelle aus dem excel herkopiere,(das ist die selbe tabelle) und dementsprechend soll sie auch die gleiche größe haben...

also ein makro das die position von group 777 ermittelt damit ich die werte ins forige makro eingeben kann

ich werde die antwort, dann morgen lesen da ich auch noch wo hin muss...

danke
gruß

Antwort 31 von helfer_001

hallo
damit du es richtig verstehst, auf der folie sind jetzt:

text box 2
text box 183
group 749
group 783
group 777(<= von der brauch ich die genaue position, diese gruppe kommt dann weg und an ihren platz wird das makro dann immer die tabelle aus excel einsetzen)

gruß

Antwort 32 von coros

Hallo Helfer_001,

hat ein wenig gedauert mein Termin, aber man kann sich die Duaer eines Termins nicht aussuchen.

Nachfolgend ein Makro, dass Dir in Deiner Präsentation in Folie 2 die Daten des Objektes "Group 777" ausließt, diese Werte in 4 Variablen schreibt und am Schluß eine Bildschirmmeldung mit den Daten ausgibt. Das Makro musst Du für in Dein vorhandenens einarbeiten.

Sub Position_auslesen()
Dim PowerPoint_Application As PowerPoint.Application, iShape As Integer, _
Left As Variant, Top As Variant, Width As Variant, Height As Variant
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
    .Visible = True
    .WindowState = ppWindowMinimized
    .Presentations.Open Filename:="C:\Documents and Settings\SantnerC\Desktop\Defect Density master.ppt"
    .ActivePresentation.Slides(2).Select
        Left = .ActiveWindow.Selection.SlideRange.Shapes("Group 777").Left
        Top = .ActiveWindow.Selection.SlideRange.Shapes("Group 777").Top
        Width = .ActiveWindow.Selection.SlideRange.Shapes("Group 777").Width
        Height = .ActiveWindow.Selection.SlideRange.Shapes("Group 777").Height
        MsgBox "Links: " & Left & Chr(10) & _
                "Oben: " & Top & Chr(10) & _
                "Breite: " & Width & Chr(10) & _
                "Höhe: " & Height
End With
End Sub

Bei Fragen melde Dich bitte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 33 von helfer_001

hallo

Hat fonktioniert danke vielmals

gruß

Antwort 34 von coros

Hallo Helfer_001,

bitte schön. Freut mich, das es funktioniert. Danke auch für die Rückmeldung.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Antwort 35 von helfer_001

hallo,

hab ich doch gern gemacht.
du hast noch immer nicht gesagt wie du mich erkannt hast.

gruß