Verhalten beim Einfügen von Bildern per Makro

Diskutiere und helfe bei Verhalten beim Einfügen von Bildern per Makro im Bereich Microsoft Office im Windows Info bei einer Lösung; Hallo zusammen, ich habe folgendes Makro: Sub InsertPics Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With ActiveSheet... Dieses Thema im Forum "Microsoft Office" wurde erstellt von Markus1201, 7. Juli 2020.

  1. Markus1201
    Markus1201 Gast

    Verhalten beim Einfügen von Bildern per Makro


    Hallo zusammen,


    ich habe folgendes Makro:


    Sub InsertPics

    Dim Rw&, PFAD$, Datei$, Bild As Shape

    PFAD = "C:\Users\….\"
    With ActiveSheet
    For Rw = 2 To 10000
    Datei = .Range"C" & Rw & ".bmp"
    If DirPFAD & Datei <> vbNullString Then
    .Pictures.Insert PFAD & Datei
    Set Bild = .Shapes.Shapes.Count
    Bild.LockAspectRatio = msoFalse
    Bild.Left = .Range"B" & Rw.Left
    Bild.Top = .Range"B" & Rw.Top
    Bild.Width = .Range"B" & Rw.Width
    Bild.Height = .Range"B" & Rw.Height
    End If
    Next
    End With
    End Sub


    Bilder werden abhängig von der Artikelnummer in die jeweilige Zelle eingefügt und die Größe angepasst.

    Das Problem ist, dass die Bilder nur als Verknüpfung eingefügt werden und somit immer eine Verbindung zum Laufwerk bestehen muss.


    Wie kann ich das Makro abändern, damit die Bilder in die Excel-Datei dauerhaft eingefügt werden?


    Danke im Voraus.
     
  2. Dirk Kampfmeier Win User

    Verhalten beim Einfügen von Bildern per Makro

    Hallo Stefan,

    stimmt, Excel 2003 ist schneller bei Shapes. Es hat sich ja beim Wechsel auf Excel 2007 einiges bei Shapes und Charts getan (Transparenz, Schatten und weitere Effekte).

    Gruß, Dirk

    PS: Application.DoEvents gibt es eigentlich gar nicht und müsste zu einem Kompilierfehler führen. Hast du "Option Explicit" oben im Modul stehen?
  3. Dirk Kampfmeier Win User

    Verhalten beim Einfügen von Bildern per Makro

    Hallo Stefan,

    versuch mal nach AddPicture den Befehl DoEvents, damit müsste es ohne Hänger klappen.

    Ansonsten kannst du weitere Eigenschaften nach dem Hinzufügen (und nach DoEvents) einstellen: z.B. pic3.Rotation = 90

    Set pic3 = ActiveSheet.Shapes.AddPicture(Filename:=xBildpfad_komplett, LinkToFile:=False, SaveWithDocument:=True, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height)

    DoEvents

    pic3.Rotation = 90

    Gruß Dirk
  4. Andreas Killer Win User

    Verhalten beim Einfügen von Bildern per Makro

    Könntest du da noch helfen?
    Denke schon. :)

    Ersetze die Zeile

    Set Sh = InsertPicture(Datei, R)

    durch

    Set Sh = InsertPicture(Datei, R.Offset(, -1), LockAspectRatio:=False)

    Andreas.
  5. Andreas Killer Win User

    Verhalten beim Einfügen von Bildern per Makro

    Sub InsertPics()
    
     Dim R As Range
    
     Dim Pfad As String, Datei As String
    
     Dim Sh As Shape
    
     Pfad = "C:\Users\…\"
    
     Application.ScreenUpdating = False
    
     For Each R In Range("C2", Range("C" & Rows.Count).End(xlUp))
    
     Datei = Pfad & R & ".bmp"
    
     If Dir(Datei) <> "" Then
    
     Set Sh = InsertPicture(Datei, R)
    
     End If
    
     Next Application.ScreenUpdating = TrueEnd Sub
    
    Private Function InsertPicture(ByVal FName As String, ByVal Where As Range, _
    
     Optional ByVal LinkToFile As Boolean = False, _
    
     Optional ByVal SaveWithDocument As Boolean = True, _
    
     Optional ByVal LockAspectRatio As Boolean = True) As Shape
    
     'Inserts the picture file FName as link or permanently into Where
    
     Dim S As Shape, SaveScreenUpdating, SaveCursor
    
     SaveCursor = Application.Cursor
    
     SaveScreenUpdating = Application.ScreenUpdating
    
     Application.Cursor = xlWait
    
     Application.ScreenUpdating = False
    
     With Where
    
     'Insert in original size
    
     Set S = Where.Parent.Shapes.AddPicture( _
    
     FName, LinkToFile, SaveWithDocument, .Left, .Top, -1, -1)
    
     'Keep the proportions?
    
     S.LockAspectRatio = LockAspectRatio
    
     'Scale it to fit the cell
    
     S.Width = .Width
    
     If S.Height > .Height Or Not LockAspectRatio Then S.Height = .Height
    
     'Move it to the middle of the cells
    
     If S.Width < Where.Width Then S.Left = Where.Left + (Where.Width - S.Width) / 2
    
     If S.Height < Where.Height Then S.Top = Where.Top + (Where.Height - S.Height) / 2
    
     End With
    
     Set InsertPicture = S
    
     Application.Cursor = SaveCursor
    
     Application.ScreenUpdating = SaveScreenUpdating
    
    End Function
  6. Claus Busch Win User

    Verhalten beim Einfügen von Bildern per Makro

    Hallo Markus,

    ich habe den Code getestet und bei mir fügt er alle Bilder ein. Zum Testen musste ich den Code ändern auf ".jpg".

    Kontrolliere mal die Dateiendung deiner Bilder.

    Die eingefügte Kopie ist keine Verknüpfung mehr. Auch das habe ich getestet.

    Claus
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Verhalten beim Einfügen von Bildern per Makro - Microsoft Office

Die Seite wird geladen...

Verhalten beim Einfügen von Bildern per Makro - Similar Threads - Verhalten Einfügen Bildern

Forum Datum

Excel Einfügen von Spalten Auswirkung auf Makro

Excel Einfügen von Spalten Auswirkung auf Makro: Hallo zusammen,ich habe eine generelle Frage.Wenn ich nachträglich in einer intelligenten Tabelle Spalten einfüge, wird das automatischich den Makro/VBACodes berücksichtigt oder müssen alle...
Microsoft Office 26. Oktober 2022

Bild per Makro löschen

Bild per Makro löschen: Hallo zusammen, ich habe eine Frage zu einem Vba Code. Und zwar möchte ich per Vba Code ein Bild aus einem OneDrive Ordner löschen. Das ist mein Code:Sub kill Dim KillFile As String KillFile =...
Microsoft Office 17. Dezember 2021

Zeilen per Makro / Knopfdruck ausblenden

Zeilen per Makro / Knopfdruck ausblenden: Hallo zusammen,ich benötige Hilfe bei der Umsetzung einer Idee. Leider kenne ich mich so gut wie garnicht mit Makros und VBA aus, die verschiedenen Forenbeiträge die ich bei Google gefunden habe,...
Microsoft Office 27. August 2021

Bild einfügen

Bild einfügen: Ich möchte in eine Adresse vo Windows Mail ein Bild einfügen?
Windows Live Essentials 1. Mai 2021

Bilder einfügen

Bilder einfügen: Wieso sind die Einfüge Optionen für Bilder bei der Standard App gesperrt?
Microsoft Office 27. Januar 2020

Screenshot aus Zwischenablage per VBA-Marko in Bild-Steuerelement einfügen

Screenshot aus Zwischenablage per VBA-Marko in Bild-Steuerelement einfügen: Hallo Zusammen, für eine PowerPoint-Vorlage benötige ich ein VBA-Makro, mit dem ich ein Screenshot aus der Zwischenablage in ein Bild-Steuerelement einfügen kann. Die Präsentation sollte dabei...
Microsoft Office 15. März 2019

Bilder werden nicht dargestellt beim einfügen

Bilder werden nicht dargestellt beim einfügen: Seid einigen Wochen habe ich die Herausforderung, dass keine Bilder angezeigt werden welche ich einfüge. Man sieht nur den Rahmen und der Rest ist weiß. Bei fertigen PPT mit Bildern muss ich...
Microsoft Office 5. Mai 2017
Verhalten beim Einfügen von Bildern per Makro solved
  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.