Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code umstellen

Code umstellen
26.07.2015 13:00:25
friedel
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

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code umstellen
26.07.2015 13:06:28
Sepp
Hallo Friedel,
und woher sollen die Bilder kommen? Sollen die Fix im UF hinterlegt sein, oder von der Festplatte ausgewählt werden?
Gruß Sepp

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

AW: Code umstellen
26.07.2015 13:40:17
Daniel
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

Anzeige
AW: Code umstellen
26.07.2015 13:42:10
Sepp
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

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

AW: Code umstellen
26.07.2015 22:34:28
friedel55
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

AW: Code umstellen
26.07.2015 14:09:49
friedel55
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

AW: Code umstellen
26.07.2015 15:32:37
Sepp
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

Anzeige
AW: Code umstellen
26.07.2015 15:52:00
friedel55
Hallo Sepp,
danke
Gruß friedel

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige