Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Bild über VBA in Zelle einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Bild über VBA in Zelle einfügen (7750 mal gelesen)
ducati-flo
Mitglied



Sehen Sie sich das Profil von ducati-flo an!   Senden Sie eine Private Message an ducati-flo  Schreiben Sie einen Gästebucheintrag für ducati-flo

Beiträge: 39
Registriert: 05.11.2007

NX5,Office 2007

erstellt am: 03. Nov. 2009 10:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8075
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 03. Nov. 2009 11:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ducati-flo 10 Unities + Antwort hilfreich

Hi,
wie weit bist Du denn schon gekommen?
>> hier << hatten wir dieses Thema schon mal. Es gibt noch weitere, auch außerhalb von CAD.de.
An welcher Stelle hängst Du fest?

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ducati-flo
Mitglied



Sehen Sie sich das Profil von ducati-flo an!   Senden Sie eine Private Message an ducati-flo  Schreiben Sie einen Gästebucheintrag für ducati-flo

Beiträge: 39
Registriert: 05.11.2007

NX5,Office 2007

erstellt am: 03. Nov. 2009 11:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8075
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 03. Nov. 2009 12:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ducati-flo 10 Unities + Antwort hilfreich

Hi,
Dateien bitte hier hochladen, ich mag keine Werbepopups von filesharing-Plattformen, manche sind sogar bei einigen usern gesperrt. CAD.de-Hilfe: Dateianhänge

Hast Du Dir den link schon mal angeguckt? Ich find, da sind schon ein paar Ansätze drin, die Du versuchen solltest, einzubauen.

Vielleicht kommt aber noch wer, der Dir das genau anhand Deines files zusammenschreibt, ich will Dir die Hoffnung da nicht nehmen 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Beverly
Mitglied
Dipl.-Geologe (Rentner)


Sehen Sie sich das Profil von Beverly an!   Senden Sie eine Private Message an Berverly  Schreiben Sie einen Gästebucheintrag für Berverly

Beiträge: 394
Registriert: 11.08.2007

erstellt am: 03. Nov. 2009 15:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ducati-flo 10 Unities + Antwort hilfreich

Hi,

eine komplette Antwort hast du schon hier und in den Folgebeiträgen erhalten: Link zum Beitrag. Es wäre schon fair gewesen, wenn du angemerkt hättest, dass dein geposteter Code nicht auf deinem "Mist" gewachsen ist...

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz