Hab hier ein kleines Problem mit VBA in Powerpoint und hoffe, einer von euch kann mir helfen. Ich will, dass ein paar Zeilen Code ausgeführt werden, sobald ich aus einer bestimmten Vorlage (.pot) eine neue Präsentation erstelle. Der Code liegt natürlich in dieser Vorlage.
Hoffe einer von euch kann mir schnell helfen.
VBA (fragt nicht): Powerpoint
gepostet vor 17 Jahre, 2 Monate von friedenspanzer
gepostet vor 17 Jahre, 2 Monate von Amun Ra
Ich würd dir gern helfen.
Hab mal ne Projektarbeit in VBA machen müssen.
Aber das war letztes Jahr
und mittlerweile nutze ich auch OpenOffice zu hause,
kann also schlecht was testen.
' wird beim starten der excelmappe ausgeführt
Private Sub Workbook_Open()
' aktiviert bestimmtes arbeitsblatt
Sheets("Umsatz").Select
' markiert bestimmte zelle
Range("A20").Select
' überprüft ob benötigte access datei vorhanden ist
If Dir(ThisWorkbook.Path & "\" & db_file, vbNormal) = vbNullString Then
' falls nicht vorhanden wird msgbox ausgegeben
' menü wird nicht erstellt
MsgBox "Die erforderliche Datenbankdatei" & Chr(13) & Chr(13) & _
Chr(34) & db_file & Chr(34) & Chr(13) & Chr(13) & _
"konnte leider nicht gefunden."
Else
' falls vorhanden wird menü rechts vom fragezeichen erstellt
sub_create_menu
End If
End Sub
Vielleicht hilft dir das irgendwie.
Gibt in PP auch ne Methode die immer beim ersten Aufruf ausgeführt wird,
weiss aber grad nich wie die heisst.
Hab mal ne Projektarbeit in VBA machen müssen.
Aber das war letztes Jahr
und mittlerweile nutze ich auch OpenOffice zu hause,
kann also schlecht was testen.
Option Explicit
' wird beim starten der excelmappe ausgeführt
Private Sub Workbook_Open()
' aktiviert bestimmtes arbeitsblatt
Sheets("Umsatz").Select
' markiert bestimmte zelle
Range("A20").Select
' überprüft ob benötigte access datei vorhanden ist
If Dir(ThisWorkbook.Path & "\" & db_file, vbNormal) = vbNullString Then
' falls nicht vorhanden wird msgbox ausgegeben
' menü wird nicht erstellt
MsgBox "Die erforderliche Datenbankdatei" & Chr(13) & Chr(13) & _
Chr(34) & db_file & Chr(34) & Chr(13) & Chr(13) & _
"konnte leider nicht gefunden."
Else
' falls vorhanden wird menü rechts vom fragezeichen erstellt
sub_create_menu
End If
End Sub
Vielleicht hilft dir das irgendwie.
Gibt in PP auch ne Methode die immer beim ersten Aufruf ausgeführt wird,
weiss aber grad nich wie die heisst.
gepostet vor 17 Jahre, 2 Monate von friedenspanzer
Original von Amun Ra
Gibt in PP auch ne Methode die immer beim ersten Aufruf ausgeführt wird,
weiss aber grad nich wie die heisst.
Danke für die Hilfe, aber in Excel hätt ich das genauso gemacht und ich hab genau das Selbe Problem wie du: Ich weiß nicht wie ich Code beim Starten von PP ausführen kann.
gepostet vor 17 Jahre, 2 Monate von Amun Ra
Mist, wie gesagt hab kein PP mehr installiert.
Nur OpenOffice Impress.
Da funzt das alles ein bisschen anders.
Da ist man ja auch nicht zwingend auf VB festgenagelt.
Mmh, mal in nem anderen Forum nachfragen
oder weiter googlen.
Sorry...
Nur OpenOffice Impress.
Da funzt das alles ein bisschen anders.
Da ist man ja auch nicht zwingend auf VB festgenagelt.
Mmh, mal in nem anderen Forum nachfragen
oder weiter googlen.
Sorry...
gepostet vor 17 Jahre, 2 Monate von friedenspanzer
OK, hab in Erfahrung gebracht, dass das absolut unmöglich ist, weil PP ganz einfach die Möglichkeiten nicht anbietet. Dann eben ein anderes Problem:
Ich hab in der Vorlage einige Makros, die tollerweise auch in den Präsentationen noch funktionieren. Aber diese Makros hab ich in die Symbolleiste gelegt, was in der Vorlage noch einwandfrei klappt, in der Präsentation haben die Symbole aber keine Funktion (obwohl die Makros ja vorhanden sind). Gibt es eine Möglichkeit diesen Umstand ohne das von mir angedacht Script zu ändern?
Ich hab in der Vorlage einige Makros, die tollerweise auch in den Präsentationen noch funktionieren. Aber diese Makros hab ich in die Symbolleiste gelegt, was in der Vorlage noch einwandfrei klappt, in der Präsentation haben die Symbole aber keine Funktion (obwohl die Makros ja vorhanden sind). Gibt es eine Möglichkeit diesen Umstand ohne das von mir angedacht Script zu ändern?
gepostet vor 17 Jahre, 2 Monate von friedenspanzer
Sieht so aus, als würde auch das auf keinen Fall gehen. Ich will ja nicht wieder auf Microsoft fluchen, aber wie Amun Ra sagt wäre das mit OOo nicht passiert
[EDIT] Kommando zurück, MS ist nicht böse! Mittels AddIn und der Funktion Auto_Load() geht das Ganze!
[EDIT] Kommando zurück, MS ist nicht böse! Mittels AddIn und der Funktion Auto_Load() geht das Ganze!
gepostet vor 17 Jahre, 2 Monate von Amun Ra
ich verfluche auch nicht MS - ganz im Gegenteil.
Aber ich kann mich rühmen,
das ich nicht EINE EINZIGE geklaute Software
auf meinem Rechner habe.
Außer ein paar MP3s - aber psssssst