Bild In Zeile Einfügen

valeripf

Erfahrenes Mitglied
Hi

Wie Kan Ich Bild von UserForm I Zeile Einfügen

ich Habe So Versucht aber Geht nicht

Code:
Cells(emptyRow, 9).Value = ImagesPicter.Value

Bitte Helf mir
 
Was ist "ImagesPicter"? Da mir das nicht klar ist, weiß ich nicht woher dein Bild kommt und kann dir daher keine Tipps zum einfügen selbst geben.

Grundsätzlich steht Value aber für den Wert einer Zelle und ein Bild ist normalerweise ein Shape. du solltest also das Shape in das Worksheet einfügen und die Position anschließend korrigieren.
Beispiel:
Visual Basic:
' Richtet das Rechteck-Shape nach [B2] aus.
Sub ExampleAlignment()
    Dim rngTargetCell As Range
    Dim shImage As Shape
    
    Set rngTargetCell = Range("$B$2")
    Set shImage = ActiveSheet.Shapes("Rechteck 1")
    
    shImage.Left = rngTargetCell.Left
    shImage.Top = rngTargetCell.Top
End Sub

PS.: Vergiss nicht das alte Bild zu löschen, wenn du ein neues Bild einfügen möchtest.
 
Ich habe vergersen zu schreiben das Bild hat Keine Feste Position soll mt Alle andere Daten bie eifügen eine Zeile Runter Gehen

Sorry
ImagesPicter name von Bildfeld (Images1) in UserForm
 
Zuletzt bearbeitet:
Sorry, ich muss leider passen beim "Kopieren" eines Bildes (Images Control) und Einfügen in das Tabellenblatt.

Was das "Zeile Runter gehen" angeht, kannst du nach dem Setzen von Left & Top noch schreiben:
Visual Basic:
shImage.Placement = xlMove
Dies entspricht den Radio-Buttons bei Rechtsklick --> Größe & Eigenschaften --> Eigenschaften und hier "Nur von Zellposition abhängig". Default ist xlFreeFloating. Alternativ könntest du auch xlMoveAndSize verwenden.
 

Neue Beiträge

Zurück