Autor
|
Thema: Bild über VBA in Zelle einfügen (7750 mal gelesen)
|
ducati-flo Mitglied
Beiträge: 39 Registriert: 05.11.2007 NX5,Office 2007
|
erstellt am: 03. Nov. 2009 10:51 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich möchte folgendes in einer Excel-Tabelle machen. Ich habe ein Userform wo ein Button (Hinzufügen) drauf liegt. Wenn ich den Button drücken, soll sich ein Fenster öffnen wo der Benutzer ein Bild aussuchen kann. (wie z.B Datei->Öffnen). Durch anschließenden drücken eines weiteren Buttons (Fertig), soll das Bild in ein bestimmte Zeile übernommen werden und verankert sein. Am besten soll das Bild noch automatisch an die Größe der Zelle angepasst werden. Wenn ich den UserForm wieder aufrufe, muss beim hinzufügen eines weiteren Bildes in der Spalte das Bild eine Zeile tiefer eingefügt werden, so das dass zuvor eingefügte Bild nicht überschrieben wird. Kann mir hier jemand helfen? Vielen Dank Florian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 03. Nov. 2009 11:14 <-- editieren / zitieren --> Unities abgeben: Nur für ducati-flo
|
ducati-flo Mitglied
Beiträge: 39 Registriert: 05.11.2007 NX5,Office 2007
|
erstellt am: 03. Nov. 2009 11:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, hier habe ich das gewünschte Ablaufschema als Word Dokument. Müsste runtergelden werden. http://www.fileuploadx.de/315735 Ich habe es geschaft das sich durch Drücken des Buttons der Ordner öffnet und ich das Bild auswählen kann. Anschließend wird der Pfad in die Textbox mit übernommen. Jetzt hänge ich wieder fest, weis nicht weiter. So sieht der Code im Moment aus: Dim fdDialog As FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFilePicker) With fdDialog .Filters.Clear .Filters.Add "Bilddateien", "*.gif; *.jpg; *.jpeg; *.bmp; *.gif; *.png", 1 If .Show = -1 Then txt2 = .SelectedItems(1) End With Set fdDialog = Nothing
Gruß Flo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 03. Nov. 2009 12:22 <-- editieren / zitieren --> Unities abgeben: Nur für ducati-flo
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 394 Registriert: 11.08.2007
|
erstellt am: 03. Nov. 2009 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für ducati-flo
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|