Verweise

Forumthread: Verweise

Verweise

05.09.2006 12:51:07

Hannes

Schönen Mittag,
ist es möglich,mit VBA im VB-Editor einen Verweis (z.B.Powerpoint)
zu aktivieren ?
wenn ja,wie ?
Danke!
Grüße Hannes

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verweise

05.09.2006 13:11:37

Nepumuk
AW: Verweise

05.09.2006 14:49:04

Hannes
AW: Verweise

05.09.2006 15:16:36

Nepumuk
AW: Verweise

05.09.2006 16:04:32

Hannes
AW: Verweise

05.09.2006 16:24:43

Nepumuk
AW: Verweise

05.09.2006 16:54:45

Hannes
Danke ! funktioniert ! o.T.

06.09.2006 10:30:52

Hannes

AW: Verweise

05.09.2006 13:11:37

Nepumuk

Hallo Hannes,
guckst du hier: https://www.herber.de/mailing/030198h.htm
Gruß
Nepumuk

AW: Verweise

05.09.2006 14:49:04

Hannes

Hallo Nepumuk,
Danke für den Hinweis !
das funktioniert soweit...als eigene Sub ausgeführt...
hier funktioniert es allerdings nicht:


Private Sub CommandButton2_Click()
Dim ppVw As String, pp As Object
On Error Resume Next
ppVw = "MSPPT.OLB"
Application.VBE.ActiveVBProject.References.AddFromFile ppVw
Set pp = CreateObject("PowerPoint.Application")
Dim pres As PowerPoint.Presentation
Set pres = pp.Presentations.Add(True)
End Sub

weil diese Zeile
"Dim pres As PowerPoint.Presentation"
eine Fehlermeldung(User defined Type not defined) bringt...
muß ich das Aktivieren des Verweises extra in einer Sub machen?
Grüße Hannes

AW: Verweise

05.09.2006 15:16:36

Nepumuk

Hallo Hannes,
wenn du die Powerpoint-Application sowieso mit CreateObject anlegst, dann benötigst du den Verweis doch garnicht. Der Fehler liegt darin, dass die Objektbibliothek nicht im Systenverzeichniss von Windows liegt. Du musst also den korrekten Pfad angeben. Mal ein Beispiel dafür, wie es funktioniert:

Private Sub CommandButton2_Click()
    Dim ppVw As String
    ppVw = "C:\Programme\Microsoft Office\Office\MSPPT9.OLB"
    ThisWorkbook.VBProject.References.AddFromFile ppVw
End Sub

Ohne den Verweis funktioniert es so:

Private Sub CommandButton2_Click()
    Dim pp As Object, pres As Object
    Set pp = CreateObject("PowerPoint.Application")
    pp.Visible = True
    Set pres = pp.Presentations.Add(True)
End Sub

Gruß
Nepumuk

AW: Verweise

05.09.2006 16:04:32

Hannes

Hallo Nepumuk,
ohne Verweis mag jetzt das Programm "ppLayoutTitle" nicht
(Variable nicht definiert...)
With pp
.Visible = True
.ActivePresentation.Slides.Add 1, ppLayoutTitle
.Windows(1).View.Zoom = 100
End With
das funktioniert auch nicht:
Private Sub CommandButton2_Click()
Dim pp As Object, pres As Object, ppVw As String
On Error Resume Next
ppVw = "D:\Program Files\Microsoft Office\Office10\MSPPT.OLB"
Application.VBE.ActiveVBProject.References.AddFromFile ppVw
Set pp = CreateObject("PowerPoint.Application")
Set pres = pp.Presentations.Add(True)
Me.ChartObjects(1).Copy
With pp
.Visible = True
.ActivePresentation.Slides.Add 1, ppLayoutTitle
.Windows(1).View.Zoom = 100
End With
ich aktiviere jetzt den Verweis bereits einen Schritt vorher,
dann funktionierts,da ist auch der Pfad nicht nötig...
Grüße Hannes

AW: Verweise

05.09.2006 16:24:43

Nepumuk

Hallo Hannes,
ppLayoutTitle ist eine Konstante aus Powerpoint und hat den nummerischen Wert 1. Du musst also einfach an Stelle der Konstanten ihre Werte benutzen. Dann klappt das ohne Verweis. Die Werte findest du entweder im Objektkatalog von Powerpoint oder du gibst im VBA -Editor von Powerpoint ins Direktfenster einfach
?ppLayoutTitle
ein und drückst auf Enter.
Gruß
Nepumuk

AW: Verweise

05.09.2006 16:54:45

Hannes

aha...ist interessant..
ich werd es morgen testen...
Danke !
Grüße Hannes

Danke ! funktioniert ! o.T.

06.09.2006 10:30:52

Hannes

Grüße Hannes

Beliebteste Forumthreads (12 Monate)

Forumthread: Verweise

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread