Office: Bilder einfügen

Helfe beim Thema Bilder einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, nach stundenlangem googlen, habe ich leider einfach nichts gefunden was mein Problem löst oder klärt. Ich muss beruflich Angebote im Excel... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von venja88, 17. Oktober 2014.

  1. 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...
     
    venja88, 17. Oktober 2014
    #1
  2. Beverly
    Beverly Erfahrener User
    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
     
    Beverly, 19. Oktober 2014
    #2
  3. 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 Bilder einfügen Fehler.jpg
     
    venja88, 20. Oktober 2014
    #3
  4. Beverly
    Beverly Erfahrener User

    Bilder einfügen

    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
     
    Beverly, 20. Oktober 2014
    #4
  5. Beverly
    Beverly Erfahrener User
    Ich hatte doch in meinem vorhergehenden Beitrag geschrieben, was ich anders gemacht habe - einfach mal genau lesen :)

    Bis später,
    Karin
     
    Beverly, 20. Oktober 2014
    #5
  6. 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... Bilder einfügen :(
     
    venja88, 23. Oktober 2014
    #6
  7. Beverly
    Beverly Erfahrener User
    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
     
    Beverly, 23. Oktober 2014
    #7
  8. Bilder einfügen

    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.
     
    Zuletzt bearbeitet: 25. Oktober 2014
    venja88, 25. Oktober 2014
    #8
  9. Beverly
    Beverly Erfahrener User
    Hi,

    Code:
    Sub Kopieren()
        Range("D7:E9").Copy Range("D15")
        Range("D7:E9").Copy Range("D23")
    End Sub
    
    Bis später,
    Karin
     
    Beverly, 25. Oktober 2014
    #9
  10. Hmm... schade hat nicht geklappt... Aber ich habe eben rausgefunden mit = und Zelle anklicken gehts auch :)
    Trotzdem danke :)
     
  11. Beverly
    Beverly Erfahrener User
    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
     
  12. miriki Erfahrener User
    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
     
  13. Beverly
    Beverly Erfahrener User

    Bilder einfügen

    Hi,

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

    Bis später,
    Karin
     
Thema:

Bilder einfügen

Die Seite wird geladen...
  1. Bilder einfügen - Similar Threads - Bilder einfügen

  2. Bild per Link in Tabelle einfügen

    in Microsoft Excel Hilfe
    Bild per Link in Tabelle einfügen: Ich bin neu hier, weil ich normalerweise die Lösung meiner Probleme mit Google finde, aber etwas gefunden habe, an dem ich scheitere. Mein Ziel: Ich habe in einer Zelle ein Link zu einem Bild...
  3. Einfügen einer Beschriftung für ein Bild

    in Microsoft Excel Tutorials
    Einfügen einer Beschriftung für ein Bild: Einfügen einer Beschriftung für ein Bild Word für Microsoft 365 Outlook für Microsoft 365 PowerPoint für Microsoft 365 Word 2019 Outlook 2019...
  4. Bild mit VBA von Access in Word Formular einfügen

    in Microsoft Access Hilfe
    Bild mit VBA von Access in Word Formular einfügen: Hallo an alle, dies ist mein erster Eintrag. Ich habe schon einiges an Erfahrung in VBA komme aber hier siet 2 TAgen trotz üblicher Recherche in Google und einigen Foren nicht weiter. Ich nutze...
  5. Verwenden einer Bildschirmsprachausgabe zum Einfügen und Bearbeiten von Bildern und Tabellen ...

    in Microsoft PowerPoint Tutorials
    Verwenden einer Bildschirmsprachausgabe zum Einfügen und Bearbeiten von Bildern und Tabellen ...: Verwenden einer Bildschirmsprachausgabe zum Einfügen und Bearbeiten von Bildern und Tabellen in PowerPoint PowerPoint für Microsoft 365 PowerPoint für Microsoft 365 für Mac...
  6. Bild mit Link einfügen

    in Microsoft Teams Hilfe
    Bild mit Link einfügen: Hallo Teams Profis, Ich würde gerne bei einem Post ein Bild einfügen das mit einem Link hinterlegt ist. Ich kann zwar ein Bild einfügen aber zusätzlich muss ich den Link extra einfügen und das...
  7. Bilder automatisch mit Dateinamen versehen

    in Microsoft Word Hilfe
    Bilder automatisch mit Dateinamen versehen: Hallo Aus Austria, ich habe einige Bilder (ca. 200) diese sollen in eine Word Datei importiert werden. Über jedem Bild soll der Dateiname stehen im Format überschrift 1, damit ich später daraus...
  8. Bilder in Rahmen einfügen und automatisch anpasse

    in Microsoft Word Hilfe
    Bilder in Rahmen einfügen und automatisch anpasse: Hallo zusammen, ich würde gerne auf einer Seite 10 gleichgroße Felder oder alternativ auch gerne Tabellenfelder haben bei denen ich Bilder/Grafiken einfügen kann und diese sich dann automatisch...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden