fotocarsten
Grünschnabel
Hallo,
Nutze WIN XP SP2 + Offixe XP (SP3)
Möchte gerne unter Power Point folgendes erreichen. Das ich innerhalb einer Laufenden Präsentation mit der Maus auf einen Butten Klicke und somit über die Macro Funktion erreiche das sich ein Fenster öffnet (z.B Explorer oder Internet explorer) der die in einem Ordner Enthaltenen Bilder als Miniaturansicht darstellt.
Das mit dem Butten und dem Starten ds VB Scriptes ist mir alles klar, aber mir ist nicht klar wie ich
1. Das Fenster dazu Annimieren kann grundsätzlich die Bilder als Miniaturvorschau darzustellen
2. Wie ich (damit es für wechselnde CD Laufwerke dynamisch bleibt) z.B. einen Unterordner der verwendeten CurDir öffnen kann
3. Wie bringe ich dem Fenster bei das es nicht Bildschirmfüllend aufgeht, sondern nur zur hälfte oder zu 3/4 damit die Präsentation nicht ganz verdeckt wird.
Hatte es mal mit diesem Befehlssatz probiert
Sub ShowDir()
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "explorer", CurDir(), CurDir(), SW_SHOWMAXIMIZED)
End Sub
Die änderung in RetVal = ShellExecute(0, "open", "explorer", CurDir(\Bilder1), CurDir(), SW_SHOWMAXIMIZED)
war aber ein Griff ins "klo" da die Syntax wohl nicht so ganz stimmte.
Beispiel bezieht sich darauf das die PP Präsentation auf einer CD im obersten Verzeichnis ist und ich nun erreichen möchte das von dieser Position aus der Ordner Bilder1 geöffnet wird .
Hab mich hier ja auch schon ein bischen umgesehen und erfahren das man mit curDir das aktuelle verzeichnis auslesen kann, aber wie bekomme ich dann diesen wert dahin das ich ChDir (Wert):\Bilder1
sagen kann ?
Sorry für die "blöden" Fragen eines unbeholfenen VB nutzers.
Vieleicht könnt Ihr mir ja helfen .
Schöne Grüße Carsten
Nutze WIN XP SP2 + Offixe XP (SP3)
Möchte gerne unter Power Point folgendes erreichen. Das ich innerhalb einer Laufenden Präsentation mit der Maus auf einen Butten Klicke und somit über die Macro Funktion erreiche das sich ein Fenster öffnet (z.B Explorer oder Internet explorer) der die in einem Ordner Enthaltenen Bilder als Miniaturansicht darstellt.
Das mit dem Butten und dem Starten ds VB Scriptes ist mir alles klar, aber mir ist nicht klar wie ich
1. Das Fenster dazu Annimieren kann grundsätzlich die Bilder als Miniaturvorschau darzustellen
2. Wie ich (damit es für wechselnde CD Laufwerke dynamisch bleibt) z.B. einen Unterordner der verwendeten CurDir öffnen kann
3. Wie bringe ich dem Fenster bei das es nicht Bildschirmfüllend aufgeht, sondern nur zur hälfte oder zu 3/4 damit die Präsentation nicht ganz verdeckt wird.
Hatte es mal mit diesem Befehlssatz probiert
Sub ShowDir()
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "explorer", CurDir(), CurDir(), SW_SHOWMAXIMIZED)
End Sub
Die änderung in RetVal = ShellExecute(0, "open", "explorer", CurDir(\Bilder1), CurDir(), SW_SHOWMAXIMIZED)
war aber ein Griff ins "klo" da die Syntax wohl nicht so ganz stimmte.
Beispiel bezieht sich darauf das die PP Präsentation auf einer CD im obersten Verzeichnis ist und ich nun erreichen möchte das von dieser Position aus der Ordner Bilder1 geöffnet wird .
Hab mich hier ja auch schon ein bischen umgesehen und erfahren das man mit curDir das aktuelle verzeichnis auslesen kann, aber wie bekomme ich dann diesen wert dahin das ich ChDir (Wert):\Bilder1
sagen kann ?
Sorry für die "blöden" Fragen eines unbeholfenen VB nutzers.
Vieleicht könnt Ihr mir ja helfen .
Schöne Grüße Carsten
Zuletzt bearbeitet:
