Wie Bild in Userform wechseln?

Du fragst einen alten Mann schwierige Sachen. Ich spiele GTA online. Browser brauch dafür keinen, so viel ich weiß. Obwohl Google Chrome immer läuft. Das hier funktioniert:

AppActivate ("Grand Theft Auto V")

aber nur solange ich nicht im Vollbildmodus spiele. Das Vollbild hat nämlich
keinen Fenstertitel.

ich komme aus GTA mit einem Tastendruck zu Excel,

trage dort meine Daten ein, was sehr schnell gehen muss,

deshalb die Userform und die Bilder und so,

und muss dann schnell wieder zurück zu GTA, weil ja das Spiel weiter läuft.

Aber ohne Fenstertitel ist das problematisch.

Hallo Helmut,

hast du die Mappe heruntergeladen, denn in OneDrive sind Makros deaktiviert.

Öffne den VB-Editor und darin die Userform. Dann kannst du im Eigenschaften-Fenster die Images anwählen und ziemlich unten (die Eigenschaften sind alphabetisch sortiert) Visible finden und dies dann auf False stellen. Die Visible-Eigenschaft der Images wird
aber auch beim Laden der UserForm auf False gestellt.

Wenn du im VB-Editor einen Rechtsklick auf die UserForm machst, kannst du "Code anzeigen" wählen. Der komplette Code (außer dem Start-Code für die UserForm) ist im Klassenmodul der UserForm.

Falls du dann immer noch nichts siehst, schau in mein Profil und sende mir eine Mail. Dann schicke ich dir die Datei per Email.

Claus

Hallo Helmut,

das Image hat keinen Frame drumherum. Ich habe nur die Eigenschaft "PictureSizeMode" auf 3 gestellt, weil meine Demo-Bilder nicht gleich groß sind und dass sie deswegen nicht abgeschnitten oder verzerrt werden. Wenn dann ein Bild kleiner als das Image ist,
sieht man die Umrisse des Images.

Ist deine Anwendung ein lokales Programm oder ein Spiel im Browser?

Claus

Hallo Helmut,

wenn ich ein Bild nach deiner Version in eine Userform lade, füllt das Bild die komplette Userform aus.

Mit einem Image (Bildanzeige) kannst du die Größe des Bildes festlegen, weil das Bild nur das Image ausfüllt. Damit wird dann der Code auch weniger und übersichtlicher.

Bei nur einer Bildanzeige geht es dann bei mir so:

Option ExplicitConst Bild1 = "E:\Daten\Eigene Bilder\Katzen\Gilmore1.jpg"Const Bild2 = "E:\Daten\Eigene Bilder\Katzen\Gilmore2.jpg"Const Bild3 = "E:\Daten\Eigene Bilder\Katzen\Kleiner Tiger.jpg"Const Bild4 = "E:\Daten\Eigene Bilder\Katzen\Mirko1.jpg"Private Sub CommandButton1_Click()Dim ctr As ControlFor Each ctr In Me.Frame1.Controls    ctr.Value = FalseNextMe.Image1.Picture = LoadPicture("")End SubPrivate Sub OptionButton1_Click()Me.Image1.Picture = LoadPicture(Bild1)End SubPrivate Sub OptionButton2_Click()Me.Image1.Picture = LoadPicture(Bild2)End SubPrivate Sub OptionButton3_Click()Me.Image1.Picture = LoadPicture(Bild3)End SubPrivate Sub OptionButton4_Click()Me.Image1.Picture = LoadPicture(Bild4)End Sub

Claus

Vielen Dank Bernhard für deinen freundlichen Versuch, mich durch das Labyrinth der Microsoft-Seiten zu führen. Ich werde jetzt nach MSDN-Community suchen, was sich aber, wie erwartet, schwierig gestaltet. Auf Anhieb sehe ich da leider nichts von MSDN.





Ist schon gut. Danke. . Ich habe erst selbst gesucht nach MSDN und bin dann deinem Link gefolgt.