Bild In Zeile Einfügen

[valeripf]

Hi

Wie Kan Ich Bild von UserForm I Zeile Einfügen

ich Habe So Versucht aber Geht nicht

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

Bitte Helf mir

 

[HonniCilest]

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:

' 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.

 

[valeripf]

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

 

[HonniCilest]

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:

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.