Office: Bilder einfügen

Hallo,

nach stundenlangem googlen, habe ich leider einfach nichts gefunden was mein Problem löst oder klärt.

Ich muss beruflich Angebote im Excel 2007 erstellen. Hierfür möchte bzw. muss ich das Bild verschiedener Alufelgen einfügen. Ich möchte dies in einer speziellen Zelle bzw. in einer zusammengefügten Zelle (Habe Zellen A+B + 4-10 über Zellen formatieren zusammengefügt) einfügen. Die Bilder sind alle im selben Ordner aber verschieden benannt. Ich stelle mir ein Makro oder eine Formel oder ähnliches vor die wie ein Platzhalter fungiert. Sprich ich klicke auf ein Symbol oder so und dann öffnet sich automatisch der Ordner in dem alle Bilder gespeichert sind und ich muss mir einfach nur noch das richtige Bild aussuchen und auf öffnen klicken.

Außerdem wäre es noch super wenn das Bild sich automatisch nur in einer speziellen Größe einfügt also die Größe der Zelle und nicht vor der Zelle liegt.

Ich erstelle gerne auch ein Textfeld in welches sich das Bild einfügen kann...

Kann mir hierbei jemand helfen?

Danke schon mal und liebe Grüße

Venja

ps: Ich bin absolut unerfahren was dieses VDB angeht also falls es nur so funzt...

 

Hi Venja,

benutze ein Bildsteuerelement (Image), dann kannst du mit folgendem Code ein Bild auswählen und in das Steuerelement einfügen:

Code:

Sub Start()
    ActiveSheet.OLEObjects("Image1").Object.Picture = LoadPicture(BildEinfuegen)
End Sub

Function BildEinfuegen() As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = "D:\"
        .ButtonName = "OK"
        .Title = "Bilddateien auswählen"
        .Show
        If .SelectedItems.Count = 0 Then
            BildEinfuegen = ""
        Else
            BildEinfuegen = .SelectedItems(1)
        End If
    End With
End Function

Wenn die Eigenschaft PictureSizeMode auf Zoom eingestellt ist, passt sich das Bild an die Größe des Steuerelementes an, natürlich nur insoweit, wie das die Original-Seitenverhältnisse zulassen - ein Bild im Hochformat kann nicht die Breite ausfüllen, wenn das Bildsteuerelement als Querformat gedacht ist (und umgekehrt).

Ein Bild (oder anderes ins Tabellenblatt eingefügtes Objekt) liegt immer AUF (vor) der Zelle.

Bis später,
Karin

 

Hallo,

vielen Dank dir erstmal für deine Antwort aber entweder ich mach noch irgendwas falsch oder es funktioniert mit dem was du geschrieben hast nicht.

Ich habe ein Image ActiveX-Steuerelement in meine Tabelle eingefügt hab es markiert und hab dann auf Code anzeigen geklickt. Danach öffnet sich ja dieses Fenster und da hab ich dann deinen Code eingefügt. Da wo du als Pfad D:\ angegeben hast hab ich halt den richtigen Bildpfad eingefügt wo die bei uns liegen aber wenn ich aus dem Entwurfsmodus rausgehe und das Steuerelement anklicke kommt immer "Fehler beim Kompilieren. End Sub erwartet".

Sorry aber ich hab keine Ahnung was ich falsch mache. Habe mal ein Bild angehängt wie das bei mir aussieht.

Bitte nochmal um Hilfe.

LG

 

Hi,

mein Beispiel hast du dir genau angeschaut? Da ist einiges anders - mein Code steht in einem allgemeinen Modul und ist mit der Schaltfläche aus den Formular-Steuerelementen verknüpft. Soll der Code nun ausgeführt werden, wenn du auf das Image klickst?

Dein Fehler: du hast 2 Prozedur-Überschriften.

Bis später,
Karin

 

Ich hatte doch in meinem vorhergehenden Beitrag geschrieben, was ich anders gemacht habe - einfach mal genau lesen :)

Bis später,
Karin

 

Hi du,

ich hatte aus Versehen den Beitrag doppelt eingestellt.

Also es fügt jetzt bei mir ein Bild ein wenn ich auf "Start" klicke.

Jetzt benötige ich aber nochmals Hilfe und zwar brauch ich 3 Fenster in denen 3 verschiedene Bilder eingefügt werden müssen. Wenn ichs einfach nur kopiere fügt es immer wieder in das selbe Feld halt das Bild ein welches ich aussuche.

Ich poste euch mal mein Angebot wie es aussehen soll.

Da wo ich die 2 Fenster mit den 2 Startbutton habe muss jeweils ein anderes Bild einzufügen sein (müssen eig 3 sein aber ich kann keine so große Datei hochladen...) wenn man auf den darunter liegenden Startbutton drückt.

Die Bilder sind aber alle im selben Ordner.

Kannst du mir da auch nochmal weiterhelfen bitte? Wie gesagt das mit dem Code schreiben ist einfach noch nicht meine Welt...

 

Hi,

erstelle 2 weitere Bildsteuerelemente, benutze den selben Code wie schon gepostet, nur musst du den Namen des Images entsprechend anassen.

Bis später,
Karin

 

Hi,

sodala die Bilder funzen endlich :) vielen Dank dafür nochmal :)

Ich habe da aber nochmal eine Frage: In meinen Zellen D7 bis D9 stehen 3 Begriffe die ich bei jedem Angebot verändern bzw. überschreiben muss. Genauso in den Zellen E7 bis E9. Der jeweilige Textinhalt in den eben genannten Zellen muss aber weiter unter ebenfalls eingefügt werden in den Zellen D15 bis D17 und E15 bis E17 sowie in D23 bis D25 und E23 bis E25.

Wie muss so ein VBA aussehen?

Ich hab folgendes beim googeln gefunden:

Range("B12").Value = Range("B1").Value

Aber egal wie ich die Formel auch mit meinen Zellen abändere es passiert einfach nichts...

Ich weiss allerdings auch nicht was man bei diesem Anfangssatz bei den VDB beachten muss dass ich End Sub schreiben muss ist mir klar. Aber was schreib ich oben drüber und wie muss ich diese VBA abändern damit das bei funzt?

Lg.

 

Hi,

Code:

Sub Kopieren()
    Range("D7:E9").Copy Range("D15")
    Range("D7:E9").Copy Range("D23")
End Sub

Bis später,
Karin

 

Hmm... schade hat nicht geklappt... Aber ich habe eben rausgefunden mit = und Zelle anklicken gehts auch :)
Trotzdem danke :)

 

Ich frage mich schon: WAS hat nicht geklappt? Mein Code kopiert die genannten Zellen genau dort hin wo du vorgegeben hast...

Bis später,
Karin

 

Moinsens!

Ich bezweifel, nach dem, was ich so gelesen habe, daß Venja88 selbst herausfindet, wo und wie sie Dein "Sub Kopieren" denn auch noch aufrufen muß.

Das Sub in den Source zu setzen, ohne es auch von anderer (passender) Stelle aus aufzurufen, hat den geschilderten Effekt: Es klappt nicht - im Sinne von: Es passiert nichts.

Gruß, Michael

 

Hi,

Ich denke, dass der Fragesteller/die Fragestellerin selbst in der Lage sein sollte, eine Auskunft zu geben.

Bis später,
Karin