Code umstellen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Code umstellen
von: friedel
Geschrieben am: 26.07.2015 13:00:25

https://www.herber.de/bbs/user/99072.xls
Einen schönen Sontag euch allen,
ich habe mir die obige Excel Datei heraus gesucht ,und hätte diese gerne etwas geändert.
Und zwar wenn Start Bsp. gestartet wird und das userform1 Fenster sich öffnet wird ein Bild ausgewählt.
Dieses ausgewählte Bild sollte dann in Tabelle A1 abgelegt werden .
vielen Dank für die Hilfe
schöne Grüße friedel

Bild

Betrifft: AW: Code umstellen
von: Sepp
Geschrieben am: 26.07.2015 13:06:28
Hallo Friedel,
und woher sollen die Bilder kommen? Sollen die Fix im UF hinterlegt sein, oder von der Festplatte ausgewählt werden?

Gruß Sepp


Bild

Betrifft: AW: Code umstellen
von: friedel55
Geschrieben am: 26.07.2015 13:30:01
Hallo Sepp,
die Bilder werden zuerst einmal in Tabelle2 hinterlegt

Bild

Betrifft: AW: Code umstellen
von: Daniel
Geschrieben am: 26.07.2015 13:40:17
Hi
dazu folgene drei Zeilen im Change-Event der Combobox:

    Tabelle2.Shapes(ComboBox1.List(, 1)).Copy
    Application.Goto Tabelle1.Cells(1, 1)
    ActiveSheet.Paste

die erste zeile kannst du auch weglassen, da du ja das Bild schon kopiert und im Zwischenspeicher hast.
Gruss Daniel

Bild

Betrifft: AW: Code umstellen
von: Sepp
Geschrieben am: 26.07.2015 13:42:10
Hallo Friedel,
ersetze den Code "ComboBox1_Change()" im Modul des UF durch folgenden.

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
  Tabelle2.Shapes(ComboBox1.List(, 1)).CopyPicture xlScreen, xlBitmap
  Tabelle1.Range("A1").Select
  Tabelle1.Paste
End If
End Sub


Gruß Sepp


Bild

Betrifft: AW: Code umstellen
von: friedel55
Geschrieben am: 26.07.2015 13:57:58
Hallo Sepp ,
funktioniert super
aller besten dank
schönen Sontag noch
Gruß friedel

Bild

Betrifft: AW: Code umstellen
von: friedel55
Geschrieben am: 26.07.2015 22:34:28
Hallo noch mal,
Um vielleicht doch von der Festplatte auswählen zu können wie müsste die Formel denn dann umgestellt werden?
Schöne Grüße friedel

Bild

Betrifft: AW: Code umstellen
von: friedel55
Geschrieben am: 26.07.2015 14:09:49
oh noch was,
das vorherige Bild auf A1, müsste beim Einfügen zuerst immer gelöscht werden.
So wie jetzt liegen immer welche aufeinander.
Gruß friedel

Bild

Betrifft: AW: Code umstellen
von: Sepp
Geschrieben am: 26.07.2015 15:32:37
Hallo Friedel,

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
  delPicture
  Tabelle2.Shapes(ComboBox1.List(, 1)).CopyPicture xlScreen, xlBitmap
  Tabelle1.Range("A1").Select
  Tabelle1.Paste
End If
End Sub


Private Sub delPicture()
Dim objShp As Shape

For Each objShp In Tabelle1.Shapes
  If objShp.Type = msoPicture Then objShp.Delete
Next
End Sub


Gruß Sepp


Bild

Betrifft: AW: Code umstellen
von: friedel55
Geschrieben am: 26.07.2015 15:52:00
Hallo Sepp,
danke
Gruß friedel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code umstellen"