Hintergrund-Bild automatisch in Userform

Forumthread: 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

AW: Hintergrund-Bild automatisch in Userform

30.11.2005 07:32:33

Heiko
AW: Hintergrund-Bild automatisch in Userform

30.11.2005 15:52:56

gerhard
AW: Hintergrund-Bild automatisch in Userform

30.11.2005 17:55:44

Heiko
Zusatz

30.11.2005 17:59:19

Heiko

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

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

Beliebteste Forumthreads (12 Monate)

Hintergrund-Bild automatisch in Userform

Forumthread: Hintergrund-Bild automatisch in Userform

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread