Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige