Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Hintergrund-Bild automatisch in Userform
30.11.2005 07:23:58
gerhard
Hallo Excel-Experten,
ich würde gerne auf unterschiedliche Hintergrundbilder in meiner Userform
zurückgreifen.
Wenn ich das Hintergrundbild ändern möchte gehe ich auf die entsprechende Userform. Dann gebe ich unter Eigenschaften in der Funktion "Picture" den Bitmap-Dateinamen ein.
Ebenfals aus dem Eigenschaftsfenter nutze ich die Funktion "PictureAlignment" mit "fmPictureAlignmentCenter" und "PictureSizeMode" mit "fmPictureSizeModeClip".
Dies finde ich umständlich und Zeitintensiv.
Kann dieses Procedere auch programmiert werden?
Wenn ja an welcher Stelle ?
Kann auch mit Platzhalter gearbeitet werden?
Für die Hilfe danke ich im Voraus.
Viele Grüsse vom Bodensee
Gerhard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hintergrund-Bild automatisch in Userform
30.11.2005 07:32:33
Heiko
Moin Gerhard,
z.B. so beim Aufruf des Userforms:
Pfad dann anpassen,

Private Sub UserForm_Activate()
Me.Picture = LoadPicture("H:\Copy\Bilder\Bild.BMP")
Me.PictureSizeMode = fmPictureSizeModeZoom
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Hintergrund-Bild automatisch in Userform
30.11.2005 15:52:56
gerhard
Hallo Heiko,
Dein Tipp hilft mir weiter. Danke vorab.
Hier noch eine Nachfrage:
Kann ich den nachfolgenden Befehl durch eine Variable ersetzen.
z. B. Tabelle1.a1
Wenn ja, mit welchem Befehl
Me.Picture = LoadPicture("H:\Copy\Bilder\Bild.BMP")
Viele Grüsse
Gerhard
Anzeige
AW: Hintergrund-Bild automatisch in Userform
30.11.2005 17:55:44
Heiko
Hallo Gerhard,
ungetestet, aber so müßte das aussehen:

Private Sub UserForm_Activate()
dim strBildName as String
strBildName = "H:\Copy\Bilder\Bild.BMP"
Me.Picture = LoadPicture(strBildName)
Me.PictureSizeMode = fmPictureSizeModeZoom
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett
Zusatz
30.11.2005 17:59:19
Heiko
Hallo
nicht alles gelesen, also hier für Zellen.

Private Sub UserForm_Activate()
dim strBildName as String
strBildName = Sheets("Tabelle1").Range("A1").Text
Me.Picture = LoadPicture(strBildName)
Me.PictureSizeMode = fmPictureSizeModeZoom
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige