Office: Bild aus Zwischenablage einfügen

Helfe beim Thema Bild aus Zwischenablage einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, Bitte um Makro Hilfe! Wie kann ich ein Bild (Shape) aus der Zwischenablage in die Aktive Zelle übernehmen wobei das Bild in der Zelle in Höhe... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von derhard, 3. Januar 2015.

  1. Bild aus Zwischenablage einfügen


    Hallo,
    Bitte um Makro Hilfe!

    Wie kann ich ein Bild (Shape) aus der Zwischenablage in die Aktive Zelle
    übernehmen wobei das Bild in der Zelle in Höhe und Breite eingepasst werden soll?

    Vielen Dank für die Hilfe
    Gruß Derhard

    :)
     
    derhard, 3. Januar 2015
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    vielleicht so:

    Code:
    Bild aus Zwischenablage einfügen grusz.gif
     
    Beverly, 5. Januar 2015
    #2
  3. Hallo Karin,
    Vielen Dank für deine Hilfe,
    das in der Zwischenablage kopierte Bild wird zwar in die markierte Zelle
    eingefügt, aber nicht passgenau der Zellgröße!
    Das Bild sollte unabhängig von der Zellbreite und Zellhöhe eingepasst sein.
    Gruß Derhard
     
    derhard, 5. Januar 2015
    #3
  4. Bild aus Zwischenablage einfügen

    Hallo,

    vielleicht meinst du es so?
    Code:
    VG
    Santa
     
    Mc Santa, 5. Januar 2015
    #4
  5. Beverly
    Beverly Erfahrener User
    Hi,

    derzeit wird das Bild unverzerrt eingefügt und nur die Höhe an die Zellhöhe angepasst. Soll das Bild verzerrt werden, sodass Höhe und Breite mit der Zellgröße übereinstimmen?

    Code:
    Bild aus Zwischenablage einfügen grusz.gif
     
    Beverly, 5. Januar 2015
    #5
  6. Hallo Karin,
    Vielen Dank für die Makro Hilfe,
    Ich habe das Makro noch erweitert, sodass es jetzt für meine Zwecke passt!
    Gruß Derhard
    Sub BildEinfuegen_01()
    ActiveSheet.Paste
    With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = msoFalse
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    End With
    End Sub
     
    derhard, 6. Januar 2015
    #6
  7. WeT-Klb Erfahrener User
    Darf ich mich auch mal anhängen? Ich habe eine Excel-Mappe (ich habe hier nur den benötigten Teil angefügt), in der ich das angefügte Blatt jeweil mit 2 Screenshots befüllen muß.
    Da die Screenshots jedoch in der Größe variieren, habe ich das Problem, daß die Grafik entweder zu hoch oder zu lang eingefügt wird - eine Verzerrung soll nicht erfolgen.
    Läßt sich das wie folgt realisieren:
    1. Grafik auf Höhe der Zelle justieren
    2. Dann überprüfen, ob die Länge der Grafik größer als die der Zelle ist
    3. a) Länge ist nicht größer als Zelle, dann das Shape zentrieren
    b) Länge ist größer als Zelle, dann Zellenlänge als Fixwert setzen und das Shape zentrieren
    4. Da dieses Blatt Teil ursprünglich Teil einer größeren Mappe ist, die immer wieder neu befüllt wird, habe ich einen Button auf einem anderen Blatt, welcher alle zu befüllenden Zellen der Mappe löscht - wie kriege ich es hin, daß auch die Shapes auf diesem Blatt gelöscht werden, ohne die Druch- und Einfügebuttons zu löschen? Die Shapes werden doch dynamisch bezeichnet, oder? Es soll, vereinfacht gesagt, die Grafik in A5 und A9 gelöscht werden.

    Ich habe mal meine Testdatei angefügt. Das jeweilige Bild wird mit einem Button eingefügt, welcher die jeweilige Zelle auswählt und dann den Code ( siehe Modul9) ausführt.

    Vielen Dank im voraus.
    Werner
     
    WeT-Klb, 31. Oktober 2021
    #7
  8. WeT-Klb Erfahrener User

    Bild aus Zwischenablage einfügen

    Ok - Punkte 1 - 3 habe ich wie folgt gelöst:

    Code:
    Sub BildPSLEinfuegen()
        Range("A5").Select
        ActiveSheet.Paste
        With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            .LockAspectRatio = msoTrue
            .Height = ActiveCell.Height - 10
            If .Width > ActiveCell.Width Then .Width = ActiveCell.Width - 10
            .Left = ActiveCell.Left + ActiveCell.Width / 2 - .Width / 2
            .Top = ActiveCell.Top + ActiveCell.Height / 2 - .Height / 2
        End With
    End Sub
    _________________________________________________________________________
    Sub BildVerkabelungEinfuegen()
        Range("A9").Select
        ActiveSheet.Paste
        With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            .LockAspectRatio = msoTrue
            .Height = ActiveCell.Height - 10
            If .Width > ActiveCell.Width Then .Width = ActiveCell.Width - 10
            .Left = ActiveCell.Left + ActiveCell.Width / 2 - .Width / 2
            .Top = ActiveCell.Top + ActiveCell.Height / 2 - .Height / 2
        End With
    End Sub
    
    Hinweis: Indem ich von .Height und .Width jeweils 10 abziehe, erhalte ich einen kleinen Freiraum zwischen der Linie um Zelle A5 bzw. A9.
    Jetzt fehlt mir nur noch die Möglichkeit, per Button ausschließlich die beiden Shapes zu entfernen, die auf A5 bzw. A9 gezeichnet wurden.
     
    WeT-Klb, 31. Oktober 2021
    #8
  9. WeT-Klb Erfahrener User
    Habe jetzt soweit alles mit diesem Code gelöst:

    Code:
    Code:
    Sub BildPSLEinfuegen()
        Range("A5").Select
        ActiveSheet.Paste
        With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            .Name = "PSL"
            .LockAspectRatio = msoTrue
            .Height = ActiveCell.Height - 10
            If .Width > ActiveCell.Width Then .Width = ActiveCell.Width - 10
            .Left = ActiveCell.Left + ActiveCell.Width / 2 - .Width / 2
            .Top = ActiveCell.Top + ActiveCell.Height / 2 - .Height / 2
        End With
    End Sub
    _________________________________________________________________________
    Sub BildVerkabelungEinfuegen()
        Range("A9").Select
        ActiveSheet.Paste
        With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            .Name = "Verkabelung"
            .LockAspectRatio = msoTrue
            .Height = ActiveCell.Height - 10
            If .Width > ActiveCell.Width Then .Width = ActiveCell.Width - 10
            .Left = ActiveCell.Left + ActiveCell.Width / 2 - .Width / 2
            .Top = ActiveCell.Top + ActiveCell.Height / 2 - .Height / 2
        End With
    End Sub
    Jetzt stellt sich (mir) nur eine Frage:
    Wie kann ich in dem jeweiligen Makro prüfen, ob eventuell der Shape "PSL" (Makro1) oder "Verkabelung" (Makro2) schon exisitiert und falls ja, diesen vorab löschen?
     
Thema:

Bild aus Zwischenablage einfügen

Die Seite wird geladen...
  1. Bild aus Zwischenablage einfügen - Similar Threads - Bild Zwischenablage einfügen

  2. verknüpftes Online Bild in Outlook 2019 einfügen

    in Microsoft Outlook Hilfe
    verknüpftes Online Bild in Outlook 2019 einfügen: Hallo! Wie kann ich in eine E-Mail ein Onlinebild als Verknüpfung im E-Mail verwenden. Vielen Dank für jede Antwort
  3. Bild mit Text aus Zelle verknüpfen

    in Microsoft Excel Hilfe
    Bild mit Text aus Zelle verknüpfen: Guten Tag Ihr Lieben Ich würde gerne mal wieder auf Eure hochgeschätzte Hilfe zugreifen. Ich habe eine Datei in dem ich ALLE Puzzles (ca. 250 Stück ) meiner Frau eingegeben habe. Das habe ich im...
  4. Tabellenbezug mit Überschrift herstellen (Buchstaben und Zahlen) + Gesamtsumme bilden

    in Microsoft Excel Hilfe
    Tabellenbezug mit Überschrift herstellen (Buchstaben und Zahlen) + Gesamtsumme bilden: Hallo zusammen, ich doktor bereits seit längerem herum, komme aber einfach auf kein Ergebnis.. folgendes: Ich habe eine Tabelle, dessen Spaltenüberschrift Kategorien darstellen sollen (A1, A2,...
  5. Bilder werden in den Mails nicht angezeigt

    in Microsoft Outlook Hilfe
    Bilder werden in den Mails nicht angezeigt: Hallo , Problem: Trotz eeinem Eintragin der Liste der sicheren Adressen zeigt Oulook 2016 bei den Mails keine Bilder mehr an. Die Adresen stehen aber in der Liste der sicheren Absender. Was...
  6. Mittelwert abhängig des Datums bilden

    in Microsoft Excel Hilfe
    Mittelwert abhängig des Datums bilden: Hallo, ich habe folgendes Problem: ich möchte den Mittelwert abhängig vom Datum bilden. Im folgenden ein Beispiel zu meinem Problem: Datum Wert 02.07.2021 12:08 5...
  7. Bild- und Audioaussetzer bei Teamsbesprechungen

    in Microsoft Teams Hilfe
    Bild- und Audioaussetzer bei Teamsbesprechungen: Hallo zusammen, Ich habe leider auf meinem recht neuen Hp-Laptop ein Problem mit Aussetzern während Videobesprechungen. Das Problem tritt in jeder Besprechung auf, egal ob mit 6 oder mit 250...
  8. Bild aus Zwischenablage in Zelle einfügen

    in Microsoft Excel Hilfe
    Bild aus Zwischenablage in Zelle einfügen: Hallo Habe folgendes Problem Wenn ich auf die Zelle A1 klicke soll mir Excel ein Bild aus der Zwischenablage in die Zelle A1 einfügen. Das Bild soll dabei genau an die Größe und Position der...

Users found this page by searching for:

  1. feld für das einfügen eines bildes aus der zwischenablage excel

    ,
  2. grafik aus zwischenablage in form einfuegen excel

    ,
  3. makro bild aus zwischenablage einfügen

  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