Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bilder als Startshow HILFE !!!!

Bilder als Startshow HILFE !!!!
11.07.2004 10:54:31
Sandro
Hallo!
https://www.herber.de/bbs/user/8352.xls
Ich möchte eine kleine Startshow erstellen,
wenn ich die Arbeitsmappe öffne sollte in der Mitte des Bildschirms (ohne Menüleisten) das Fenster erscheinen Größe sollte so wie in der Beispieldatei
sein, jetzt müßten die Bilder übereinander gesetzt werden und in gewissen Zeitabständen sich öffnen und schließen, ( Bild 1 öffnen kurze Pause, Bild 2 öffnen kurze Pause usw bis der Ladebalken bei Bild 5 bei 100 % ist)erst dann soll sich die eigentliche Arbeitsmappe öffnen,
Vieleicht kann mir jemand helfen...
ich bekomme es einfach nicht hin

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder als Startshow HILFE !!!!
11.07.2004 11:25:43
Annett
Hallo Sandro
mache aus Deinen Bilder je Bild ein Gesamtbild. Gebe Ihnen den Namen Bild1 bis ...
lasse dann das Makro Position und Ausblenden laufen und binde Einblenden bei Open ein.
Als Zeit habe ich mal 2 Sekunden angenommen.
Option Explicit

Sub Ausblenden()
ActiveSheet.Shapes("Bild1").Visible = False
ActiveSheet.Shapes("Bild2").Visible = False
ActiveSheet.Shapes("Bild3").Visible = False
ActiveSheet.Shapes("Bild4").Visible = False
ActiveSheet.Shapes("Bild5").Visible = False
'   ActiveSheet.Shapes("Bild6").Visible = False
End Sub


Sub Position()
ActiveSheet.Shapes("Bild1").Left = 200
ActiveSheet.Shapes("Bild2").Left = 200
ActiveSheet.Shapes("Bild3").Left = 200
ActiveSheet.Shapes("Bild4").Left = 200
ActiveSheet.Shapes("Bild5").Left = 200
'    ActiveSheet.Shapes("Bild6").Left = 200
ActiveSheet.Shapes("Bild1").Top = 100
ActiveSheet.Shapes("Bild2").Top = 100
ActiveSheet.Shapes("Bild3").Top = 100
ActiveSheet.Shapes("Bild4").Top = 100
ActiveSheet.Shapes("Bild5").Top = 100
'    ActiveSheet.Shapes("Bild6").Top = 300
End Sub


Sub Einblenden()
ActiveSheet.Shapes("Bild1").Visible = True
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
ActiveSheet.Shapes("Bild2").Visible = True
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
ActiveSheet.Shapes("Bild3").Visible = True
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
ActiveSheet.Shapes("Bild4").Visible = True
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
ActiveSheet.Shapes("Bild5").Visible = True
DoEvents
'    Application.Wait Now + TimeSerial(0, 0, 2)
'    ActiveSheet.Shapes("Bild6").Visible = True
'    DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
Ausblenden
End Sub

Gruß Annett
Anzeige
AW: Bilder als Startshow HILFE !!!!
11.07.2004 11:42:01
Sandro
Hallo Anett!
Ich bin ein Neuling was Makros betrifft,
kannst du mir das "lasse dann das Makro Position und Ausblenden laufen und binde Einblenden bei Open ein"bisl genauer erklären..."
grüße Sandro
AW: Bilder als Startshow HILFE !!!!
11.07.2004 11:45:51
Annett
Hallo Sandro
zu 1 Extra, Makro
zu 2 in VBA unter DieseArbeitsmappe

Private Sub Workbook_Open()
Einblenden
End Sub

Gruß Annett
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:14:00
Sandro
Nochmal iche
ich glaub ich bin zu blöd dafür ich bekomme das nicht hin
ich habe jetzt die Bilder mit Bild1 usw bezeichnet
ich bekomme immer danne einen Syntaxerror
https://www.herber.de/bbs/user/8358.xls
Anzeige
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:17:32
Annett
Hallo Sandro
ich finde keinen Code.
Gruß Annett
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:27:59
Annett
Hallo Sandro
Du hast das Modul nicht kopiert.
Auf DEine Datei gehen, rechte Maustaste, Einfügen Modul und Code ins rechte Fenster kopieren
Gruß Annett
Anzeige
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:52:35
Sandro
So habe ich gemacht jetzt bringt der den Fehler
das Element kann nicht gefunden werden
Grüße Sandro
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:56:35
Annett
Hallo Sandro
in der Datei die Du hochgeladen hast ist kein Modul.
Gruß Annett
AW: Bilder als Startshow HILFE !!!!
11.07.2004 12:48:35
K.Rola
Hallo,
schau mal bei deiner selben Frage von gestern nach.
Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige