Einfügen eines Bildes in einen SolidWorks Plan (VBA)

2D plans Layout
1

Hallo

Ich möchte ein Bild über Excel in Solidworks einfügen.
Im Moment kann ich mein Bild in Excel kopieren. Ich habe jedoch die VBA Solid-Hilfemethode ausprobiert, um sie in meinen Plan einzufügen, aber ich kann sie nicht anpassen. Ich gebe mein Programm weiter, wenn es jemand weiß oder ich falsch liege^^

Sub main()
Legen Sie swApp = Application.SldWorks fest

Gegründet2 = LCase(Gegründet)
Verifier2 = LCase(Verifier)
Genehmiger2 = LCase (Genehmiger)
'---------------------------------------------------------------------------
Name = "BD .xlsx" 'Name der Datenbank
FileLocation = "F:\COMMON\01.Project\Macro\Database\" 'Speicherort der Datenbank


Datei = Dateispeicherort & Name ' Variable zum Öffnen

SetAttr-Datei, vbNormal
Set wb = Workbooks.Open(File) ' die Excel-Datenbank
     
    
Excel.Application.Visible = True ' Excel anzeigen


ActiveSheet.Shapes(Established2). Kopieren

        'Arbeitsmappen(Substantiv). Retten
        'ActiveWorkbook.Close
        'Excel.Application.Quit
        Legen Sie swApp = Application.SldWorks fest
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, Falsch, 0, Nichts, 0)
swModel.Paste

2

Hallo

Ihr "swModel" ist nicht definiert, versuchen Sie, indem Sie Folgendes eingeben:

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Status = swModel.Extension.SelectByID2("", "", 1, 1, 1, False, 0, Nothing, 0)
swModel.Paste

 

Statt:

Legen Sie swApp = Application.SldWorks fest
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, Falsch, 0, Nichts, 0)
swModel.Paste

Herzliche Grüße

3

nickel seinen Weg vielen Dank :)