[Gelöst] CC: Bild in Excel

Hallo Community.

Ich habe es geschafft ein Bild nach Excel zu Exportieren mit:

Code:

    Sheet.Shapes.AddShape(1, 1,1,50,40).Fill.UserPicture(Bilder);


aber es wird an der falschen Stelle angezeigt.
Ich möchte es gern in einer bestimmten Zeile/ Zelle anzeigen.
Wie kann ich das Bild in einer Zelle anzeigen?

Beste Grüße,
Christian

Zuletzt geändert von navCH am 9. Mai 2016 09:06, insgesamt 1-mal geändert.

habe hierbei einen VB Makrocode gefunden, wobei ein Bild in eine Zelle geschreiben wird:

Code:

Sub Bild_einfügen()

ActiveSheet.Unprotect Password:="DeinPasswort"
Dim Dat As String
Dim Zelle As Range
Dim ScaleA As Double

Set Zelle = Range("B10") 'hier wird das bild eingefügt

Dat = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(Dat, 3)
    Case "bmp", "jpg", "tif", "gif"
            ActiveSheet.Pictures.Insert(Dat).Select
            With Selection.ShapeRange
                .Top = Zelle.Top
                .Left = Zelle.Left
                ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
                .Height = .Height * ScaleA
            End With
            Selection.Placement = xlMoveAndSize
            Selection.PrintObject = True
    Case Else
        MsgBox "Sie haben kein gültiges Bild ausgewählt"
End Select       

ActiveSheet.Protect Password:="DeinPasswort"
End Sub


Versuche den Code in C/AL Formatieren.

Hallo.

Kann das Bild jetzt in einer Zelle in Excel ausgeben.

Code:

    xlRange.RowHeight := 50;
    EVALUATE(PosX, FORMAT(xlRange.Left));
    EVALUATE(PosY, FORMAT(xlRange.Top));
               
    xlShape:=Sheet.Shapes.AddPicture('C:\Artikelbilder\'+
    "No."+'.bmp',1, 1,PosX + 5,PosY + 5,50,50);
    xlShape.Select;
    xlShape.Placement(1);
    MODIFY;


MfG
Chris