Een afbeelding in een solidworks-plan (VBA) plakken

2D plans Layout
1

Hallo

Ik ben op zoek naar een afbeelding plakken in Solidworks via Excel.
Op dit moment kan ik mijn afbeelding kopiëren naar Excel. Ik heb echter de VBA Solid-helpmethode geprobeerd om het in mijn plan te plakken, maar ik kan het niet aanpassen. Ik geef mijn programma door als iemand het weet of als ik het mis heb ^^

Sub hoofd()
Stel swApp = Toepassing.SldWorks in

Gevestigd2 = LCase(Vastgesteld)
Verificateur2 = LCase(Verificateur)
Goedkeurder2 = LCase(Goedkeurder)
'---------------------------------------------------------------------------
Name = "BD .xlsx" 'naam van de database
FileLocation = "F:\COMMON\01.Project\Macro\Database\" 'Locatie van database


File = File Location & Name ' variabele voor het openen

SetAttr-bestand, vbNormal
Stel wb = Werkmappen.Open(Bestand) ' de Excel-database in
     
    
Excel.Application.Visible = Waar ' toon excel


ActiveSheet.Shapes(Gevestigd2). Kopiëren

        'Werkboeken(zelfstandig naamwoord). Redden
        'ActiveWorkbook.Sluiten
        'Excel.Application.Quit
        Stel swApp = Toepassing.SldWorks in
Status = swModelDocExt.SelectByID2("", ", "", 1, 1, Onwaar, 0, Niets, 0)
swModel.Plakken

2

Hallo

Je "swModel" is niet gedefinieerd, probeer het door te zetten:

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

 

In plaats van:

Stel swApp = Toepassing.SldWorks in
Status = swModelDocExt.SelectByID2("", ", "", 1, 1, Onwaar, 0, Niets, 0)
swModel.Plakken

Vriendelijke groeten

3

nikkel zijn wandeling heel erg bedankt :)