Hallo Leute,
ich stehe vor folgendem Problem:
Ich habe in excel ein Formular erstellt wo die verschiedensten Dinge via Textfelder und Kontrollkästchen ausgewählt werden können.
Zur besseren Beschreibung möchte ich ein Feld einfügen das eine Schaltfläche besitzt, die bei Anklicken den Explorer des Benutzers öffnet damit er von seiner Datenbank ein Bild wählen kann welches dann wiederum in das excel Formular eingefügt wird.
In word gibt es dafür ein einfaches "Bildinhaltssteuerelement" - dieses fehlt aber leider im excel.
Wie kann man das trotzdem erreichen.
Danke
Andreas
Hi Andreas,
Du kannst doch über die Registerkarte "Einfügen -> Illustrationen -> Bild" genau das tun, was Du in Deiner Frage beschreibst ...
Hallo,
Ja, ich kann das schon, aber das Formular wird ja auch gesperrt damit nur die relevanten Bereiche bearbeitet werden können.
Damit ist die Menüleiste gesperrt und ich brauche einen generierten Button der diese Aufgabe übernimmt.
Hi Andreas,
Zitat:das Formular wird ja auch gesperrt
das hast Du aber in Deiner Ausgangsfrage nicht verraten
Wenn in den Optionen für den Blattschutz
nur die Haken bei "Nicht gesperrte Zellen auswählen" und "Objekte bearbeiten" gesetzt sind, können Bilder sehr wohl in die nicht gesperrten Zellen eingefügt werden ...
Ja, das ist mir auch klar, aber mit einem Button wäre es einfacher und vor allem verständlicher.
Wie gesagt, ich kenne die Funktion aus word also dacht ich dass es im excel auch eine Möglichkeit geben muss.
Hi Andreas,
den Dialog zum Einfügen eines Bildes kannst Du mit
Code:
Application.Dialogs(xlDialogInsertPicture).Show
aufrufen ...
Vielen Dank!
Das ist das wonach ich gesucht habe!
O.k. - jetzt noch eine Frage.
Ich habe die Schaltfläche "Picture" jetzt im Excel sheet.
Wenn man draufklickt kommt man zur Auswahl im Explorer.
Die Schaltfläche habe ich in eine Fläche gesetzt wo dann das Bild drinnen sein soll.
Wie kann ich jetzt die Größe des importierten Bildes auf diese Fläche begrenzen, denn jetzt gehen Bilder nach ihrer Grundgröße auf und besetzten das halbe Dokument?
Hi Andreas,
probier's mal damit. Den Codeschnipsel habe ich aufgezeichnet - die Bildbreite beträgt hier ca. 3 cm.
Code:
Sub DialogZeigen()
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 85.0393700787
End Sub
Hi
Das mit Größe haut so hin - Danke!
Jetzt gibt es zum Abschluß noch das Problem dass das Ganze mit aktivem Blattschutz nicht funktioniert.
Ach, wieso kann ich denn hier jetzt keinen Screenshot einfügen!