Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Bilder mit VBA einfügen

Userform Bilder mit VBA einfügen
Ulf
Hallo Ihr Excel-Profis,
Bilder im ExcelSheet einzufügen geht das wie folgt:
With ActiveSheet
Set bild_neu = ActiveSheet.Pictures.Insert(Zelle_Bild.Value)
bild_neu.Name = "P_Sizze"
End With
Nun möchte ich in einem UserForm unterschiedlich viele Bilder einfügen.
Gibt es dafür eine Analogie für Userform und Image?
Danke Ulf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
IMAGE-Objekt in Userform per VBA einfügen
26.10.2010 15:00:17
NoNet
Hallo Ulf,
in einem UserForm musst Du dazu zunächst ein leeres IMAGE-Objekt einfügen in das Du dann per Loadpicture(...) ein Bild von der Festplatte einfügst.
Hier ein Beispiel : In einem UserForm sollen per Schaltfläche 9 Bilder (angeordnet als 3x3 Gitter) eingefügt werden.
Erstelle dazu ein UserForm mit den 2 Schaltflächen cmdBilderHinzufuegen und _ cmdSchliessen. Weise diesen Schaltflächen im UF folgenden Code zu : 

Private Sub cmdBilderHinzufuegen_Click()
'Code fügt 9 IMAGE-Objekte in das USerForm ein
'positioniert diese auf 3 x 3
'und fügt Bilder in diese IMAGE-Objekte ein
'26.10.2010, NoNet - www.excelei.de
Dim cnt As MSForms.Control, intT As Integer
For intT = 0 To 8
Set cnt = Me.Controls.Add("Forms.Image.1", "Img" & t, True)
cnt.Left = 20 + 80 * (intT Mod 3) 'horizontale Position - Abstand von links
cnt.Top = 10 + 80 * (intT \ 3)    'vertikale   Position - Abstand von oben
cnt.Width = 60                    'Breite des IMAGE-Objektes
cnt.Height = 60                   'Höhe   des IMAGE-Objektes
cnt.PictureSizeMode = fmPictureSizeModeZoom 'Bild Zoomen
'Nachfolgenden Bildpfad und Dateinamen bitte anpassen !!
cnt.Picture = LoadPicture("C:\Temp\Images\Image " & intT + 1 & ".jpg")  'Bild einfügen
Next
cmdBilderHinzufuegen.Enabled = False 'Schaltfläche deaktivieren
End Sub
Private Sub cmdSchließen_Click()
Unload Me 'Userform schließen
End Sub

Und so sieht das dann aus (zunächst das leere UserForm, dann bitte auf im Bild klicken) :

Gruß, NoNet
Anzeige
AW: IMAGE-Objekt in Userform per VBA einfügen
Ulf
Hallo NoNet
Kleinigkeit geändert und es klappt prima,
hab's für die Beschriftung erweitert mit
Set cnt = Me.Controls.Add("Forms.Label.1", "Lab" & intT, True)
und das klapp auch.
Danke für Eure schnelle und perfekte Hilfe!
Ulf
AW: IMAGE-Objekt in Userform per VBA einfügen
Ulf
bei so ner schellen und perfekten Antwort soll hier noch
etwas werbung sein
Excelianer schaut hier mal rein:
www.excelei.de

248 Forumthreads zu ähnlichen Themen

Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
VBA - Ganzer Bildschirm ein/aus
Klaus

Verehrte EX-Gurus!
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro...
08.11.2008 08:21:33
Thread-ID: 1022845
3 Beiträge
Anzeige
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
geladenes Bild in Userform Image speichern
k

Hallo,
...habe in einer Userform das Element Picture drin und dieses wird mit Fotos aus einem Verzeichnis entsprechend geladen. Nun würde ich gern dem User die Möglichkeit geben - dieses Bild bei Bedarf unter eine Art "Datei speichern unter" für sich zu speichern.
Habe aber keine richti...
18.08.2009 13:46:40
Thread-ID: 1096746
9 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Anzeige

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
6
2
3
3
2
8
3
3
4
5
4
10
2
2
2
7
7
3
2
5
2
6
5