Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geladenes Bild in Userform Image speichern

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 richtigen Ansatz finden können. Den Pfad zur Datei habe ich ja, das Bild wird ja geladen - aber wie lautet der Code dafür - dieses Bild dann zu speichern ?
Denn "einfach" Me.Image3.SaveAs - geht nicht ;o(
Des weiteren würde ich auch gleich dieses Bild zum Ausdruck bereitstellen wollen - auch hier habe ich keinen passenden Code finden können...hat einer von Euch da einen Tipp ?
Bin Froh über jeden Hinweis oder Idee von Euch...
Gruß und Danke
Kay
AW: geladenes Bild in Userform Image speichern
18.08.2009 13:46:40
Hajo_Zi
Hallo Kay,
kopiere einfach die Datei.

AW: geladenes Bild in Userform Image speichern
18.08.2009 14:52:43
k
Hallo Hajo,
...ich weiß, ich nerve bestimmt - aber ich kann mit Deinem Tipp nicht richtig umgehen - auch wenn ich glaube zu wissen was Du meinst. Vermutlich reichen aber meine VBA-Kenntnisse noch nicht dazu aus.
Habe ich Dich richtig verstanden:
- Image3.Picutre kopieren ?
Ja aber wie ? Ich bekomme immer nur eine Fehlermeldung ?!
Me.Image3.Picture.Copy
oder
Me.Image3.Picture.putinClipboard
oder
Me.Image3.Picture.Select
Selection.copy
...alles Fehlgeschlagen ?! - Ich bin eben noch ein Laie, blutiger Anfänger und in meinen Büchern habe ich auch nichts richtig dazu gefunden...
Folgende Infos zu meinem VBA vielleicht zur besseren Vorstellung wie ich was bisher tat:
Dateipfad = Pfadbilder & Worksheets("Basic").Cells(33, Projekt)

Pfadbilder = Inhalt einer Zelle, in der der Pfad eingetragen wurde (Variable)
Projekt = Spaltenzahl - in der der Name der Datei steht (Variable)
Gruß und Danke für Deine Unterstützung
Kay
Anzeige
AW: geladenes Bild in Userform Image speichern
18.08.2009 14:56:30
Hajo_Zi
Hallo Kay,
Du schreibst hier komplizerte Sachen zu VBA, da gehe ich davon aus das Dir bekannt ist wie man eine Datei kopiert. Von Image kopieren habe ich nichts geschrieben.
Ansonsten schaue in den Beitrag von Karin.
Gruß Hajo
AW: geladenes Bild in Userform Image speichern
18.08.2009 14:34:42
Beverly
Hi Kay,
schreibe den Namen des Bildes einschließlich Pfad beim Laden auf eine Variable, dann kannst du diese für das Kopieren mittels FileCopy verwenden verwenden.
https://www.herber.de/bbs/user/63905.xls

Anzeige
AW: geladenes Bild in Userform Image speichern
18.08.2009 15:43:08
k
Vielen Dank,
Mit der Datei und dem Tipp File.Copy bin ich nun os vorgegangen, um es zu automatisieren:
Private Sub CB_Speichern_Click() ' mit Variablen, jenachdem welches Bild aktuell geladen wurde  _
in der Userform (Image3)
BildName = Worksheets("Basic").Cells(32 + ixPicNr, Projekt)   ' Bildname wird aus Variablen  _
entsprechend aus der Mappe gelesen
Datei = (Pfadbilder & Worksheets("Basic").Cells(32 + ixPicNr, Projekt)) ' Pfad wird aufgrund  _
einer Angabe in einer Zelle ausgelesen
strPfad = GetSpecialFolder(ssfDESKTOPDIRECTORY)   ' Pfad = Benutzer\Desktop
strPfad = IIf(Right(strPfad, 1) = "\", strPfad, strPfad & "\")
strPfad = strPfad & "Bilder_VNL\"                     'Pfad + Name Unterordner-Anlegen  _
Bilder_VNL
lngPahth = apiCreateFullPath(strPfad)                 'hier wird der Ordner angelegt, sollte  _
er nicht vorhanden sein
SavePath = strPfad
FileCopy Datei, SavePath & BildName
MsgBox "Das Bild wurde auf Ihrem Desktop gespeichert! " & VBA.Chr(13) & VBA.Chr(13) &  _
SavePath & BildName & VBA.Chr(13), vbInformation + vbOKOnly, "Foto speichern"
End Sub
Manchmal sieht man den Wald vor lauter Bäumen nicht und ich kam einfach nicht auf die Idee mit dem FileCopy !
Danke für Eure Unterstützung !
Gruß
Kay
Anzeige
Teil noch offen: Image Drucken ?
18.08.2009 17:07:04
k
Hallo,
...das mit dem Bild habe ich nun Danke Eurer Tipps hinbekommen...nur mit dem Drucken (gleichzeitg unter Anpassung Fit to Page oder Zoom auf Page) fehlt mir noch der rechte Ansatz ?
Gruß
Kay
AW: Teil noch offen: Image Drucken ?
19.08.2009 00:54:39
Nepumuk
Hallo,
dazu lädst du das Bild am besten in eine leere Tabelle und druckst diese.
Gruß
Nepumuk

306 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
4
7
1
5