Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word-Tabellen-Dialog von Powerpoint aus aufrufen
zurück: Variables Kopieren weiter: Pfeile in Andere Schriftart geht nicht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Muenster36
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. März 2009, 18:49
Rufname:

Word-Tabellen-Dialog von Powerpoint aus aufrufen - Word-Tabellen-Dialog von Powerpoint aus aufrufen

Nach oben
       Version: Office 2007

Hallo Forum,
ich möchte für die aktuelle Folie per Makro ein Wordobjekt mit dem Dialogfenster zur Auswahl einer Wordtabelle einbauen. Das Einfügen eines Wordobjekts mach ich folgendermaßen:

Sub WordTabellenDialogAnzeigen()
ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="Word.Document.12", Link:=msoFalse).Select
ActiveWindow.Selection.ShapeRange.OLEFormat.Activate
With ActiveWindow.Selection.ShapeRange
.Left = 119.875
.Top = 110
.Width = 480.25
.Height = 320
End With
Dim WordObjekt As Object
Set WordObjekt = GetObject(, "Word.Application")
End Sub


Soweit funktioniert es, aber jetzt müßte der folgende Code für den Tabellendialog aufgerufen werden:

Dim DlgTabelle As Dialog
Set DlgTabelle = Dialogs(wdDialogTableInsertTable)
DlgTabelle.Show


Die Frage ist, wie schaffe ich das von Powerpoint aus ? Hat jemand eine Idee ? Vielen Dank im voraus...
Muenster36
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
15. März 2009, 19:30
Rufname:
Wohnort: Leipzig

AW: Word-Tabellen-Dialog von Powerpoint aus aufrufen - AW: Word-Tabellen-Dialog von Powerpoint aus aufrufen

Nach oben
       Version: Office 2007

Hallo Muenster36,

probier mal so:
Code:
Sub WordTabellenDialogAnzeigen()
    ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="Word.Document.12", Link:=msoFalse).Select
    ActiveWindow.Selection.ShapeRange.OLEFormat.Activate
    With ActiveWindow.Selection.ShapeRange
        .Left = 119.875
        .Top = 110
        .Width = 480.25
        .Height = 320
    End With
    Dim WordObjekt As Object
    Set WordObjekt = GetObject(, "Word.Application")
    WordObjekt.Activate
    WordObjekt.Dialogs(129).Show
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Muenster36
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. März 2009, 22:38
Rufname:


Genial...es funktioniert - Genial...es funktioniert

Nach oben
       Version: Office 2007

Hallo Lisa,
du bist genial, es funktioniert...
Die Zeile
WordObjekt.Activate
muss jedoch raus, sie führt zu einer Fehlermeldung

Also so muss der Code aussehen:
ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="Word.Document.12", Link:=msoFalse).Select
ActiveWindow.Selection.ShapeRange.OLEFormat.Activate
With ActiveWindow.Selection.ShapeRange
.Left = 119.875
.Top = 110
.Width = 480.25
.Height = 320
End With
Dim WordObjekt As Object
Set WordObjekt = GetObject(, "Word.Application")
WordObjekt.Dialogs(129).Show


Daaanke und Gruß aus Münster
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word VBA Programmierung (Makros): Spezielles VBA-Modul direkt im Editor aufrufen 3 halweg 202 14. März 2013, 10:26
halweg Spezielles VBA-Modul direkt im Editor aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Userform nur aufrufen wenn neues Dokument erstellt wird 0 _TryOut_ 176 14. Aug 2012, 16:14
_TryOut_ Userform nur aufrufen wenn neues Dokument erstellt wird
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro über Button aufrufen 2 HaraldSch 387 15. Jun 2012, 15:44
HaraldSch Makro über Button aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Outlook Aufgabenanfrage aus Word aufrufen 2 GODMoni 497 25. Jan 2012, 12:51
Gast Outlook Aufgabenanfrage aus Word aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Userform von anderem Dokument aus aufrufen 1 Gast 179 12. Dez 2011, 19:29
r.mueller Userform von anderem Dokument aus aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Excel function aufrufen mit Rückgabewert 1 hansp 1124 25. Mai 2011, 09:51
hansp Excel function aufrufen mit Rückgabewert
Keine neuen Beiträge Word VBA Programmierung (Makros): Lange wörter durch Abkürzungen aufrufen 2 peregrine 2039 07. Feb 2011, 16:11
peregrine Lange wörter durch Abkürzungen aufrufen
Keine neuen Beiträge Word Formate: Radio-Button in Word speichern/aufrufen 3 Gast 2307 21. Mai 2010, 16:15
Gast Radio-Button in Word speichern/aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): pdf aus Word (2003) aufrufen 1 Dj27 490 19. Okt 2009, 12:05
CHF pdf aus Word (2003) aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro über Ribbon aufrufen 6 derhoeppi 5372 15. Sep 2008, 16:46
mumpel Makro über Ribbon aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): UserForm aus eingebundener Formatvorlage aufrufen 4 ChS 1414 07. Dez 2007, 16:18
ChS UserForm aus eingebundener Formatvorlage aufrufen
Keine neuen Beiträge Word VBA Programmierung (Makros): Hilfe Funktion Aufrufen , nur wie geht das?? 0 alcatraz 899 27. Apr 2007, 12:54
alcatraz Hilfe Funktion Aufrufen , nur wie geht das??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks