Bildeigenschaften per VBA

Sub BilderEinfügen() Dim objBild As Object Set WS = ThisWorkbook.Worksheets("...") Set objBild = WS.Pictures.Insert("...") With objBild .Top = WS.Range(WS.Range("...").Top .Left = WS.Range(WS.Range("...").Left .Height = .Width * 4 .

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
"...Wie finde ich in Zukunft so etwas selber heraus? ..."
Extras - Makro - Makrorekorder aufzeichnen
Anschliessend den Code anschauen, ... und das meiste kannst du so auslesen/lernen

Sub Macro3()
    '
    ' Macro3 Macro
    ' Macro recorded 21.07.2008 by Ramses
    '
    ActiveSheet.Shapes("Picture 3").Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Range("E7").Select
End Sub

Gruss Raienr

Hallo
"..Mir wurde von jemandem hier im Forum geraten..."
Tja, und nun ?
Soll ich dir einen VBA-Kurs Online Crash Kurs im programmieren geben ?
Ich habe dir gezeigt wie es richtig geht und wie du lernen kannst wo was einzustellen ist.
Mit dem "Object" geht es eben nicht, da dies ein allgemeines Object ist, wozu EXCEL keinen Object-Catalog anbieten kann.
"...Ich würde ungern meinen kompletten Code ändern..."
Musst du doch auch gar nicht. Die VBA-Hilfe ist besser als ihr Ruf

Sub BilderEinfügen()
    Dim objBild As Shape
    Dim wks As Worksheet
    Set wks = ThisWorkbook.Worksheets("Sheet2")
    'FileName Required String. The file from which the OLE object is to be created.
    'LinkToFile Required MsoTriState. The file to link to.
    'SaveWithDocument Required MsoTriState. To save the picture with the document.
    'Left Required Single. The position (in points) of the upper-left corner of the picture relative to the upper-left corner of the document.
    'Top Required Single. The position (in points) of the upper-left corner of the picture relative to the top of the document.
    'Width Required Single. The width of the picture, in points.
    'Height Required Single. The height of the picture, in points.
    Set objBild = wks.Shapes.AddPicture("C:\Pfad\Ordner\xyz.jpg", False, True, 100, 100, 100, 100)
    With objBild
        '.Top = WS.Range(WS.Range("...").Top
        '.Left = WS.Range(WS.Range("...").Left
        '.Height = .Width * 4
        '. <<<----- HIER SOLL NUN DER CODE REIN
    End With
End Sub

Den Rest kriegst du dann im Einzelschrittmodus im Lokalfenster schon raus
Gruss Rainer

Sub BilderEinfügen() Dim objBild As Object Dim WS As Worksheet Set WS = ThisWorkbook.Worksheets("xx") For i = xx To xx Set objBild = WS.Pictures.Insert(xx) Ratio = objBild.Height / objBild.Width With objBild .Top = WS.Range(xx).Top .Left = WS.Range(xx).Left .Width = WS.Range(xx).Width .Height = .Width * Ratio .Name = ("Bild" & i) .ShapeRange.Line.Visible = msoTrue .ShapeRange.Line.Weight = 0.25 End With Next i Set objBild = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread