Wklejanie obrazu do planu solidworks (VBA)

2D plans Layout
1

Witam

Chcę wkleić obraz do Solidworks za pomocą programu Excel.
W tej chwili mogę skopiować mój obraz do Excela. Jednak wypróbowałem metodę pomocy VBA Solid, aby wkleić go do mojego planu, ale nie mogę go dostosować. Przekazuję mój program jeśli ktoś wie lub się mylę^^

Sub main()
Ustaw swApp = Application.SldWorks

Ustalony2 = LCase(Ustalony)
Weryfikator2 = LCase(Weryfikator)
Osoba zatwierdzająca2 = LCase(Osoba zatwierdzająca)
'---------------------------------------------------------------------------
Name = "BD .xlsx" 'nazwa bazy danych
FileLocation = "F:\COMMON\01.Project\Macro\Database\" 'Lokalizacja bazy danych


File = Lokalizacja i nazwa pliku ' zmienna do otwierania

Plik SetAttr, vbNormal
Ustaw wb = Workbooks.Open(File) ' bazę danych programu Excel
     
    
Excel.Application.Visible = Prawda ' pokaż excela


ActiveSheet.Shapes(Ustanowiono2). Kopiować

        'Zeszyty ćwiczeń(rzeczownik). Zapisać
        'ActiveWorkbook.Zamknij
        'Excel.Application.Quit (Excel.Aplikacja.Wyjdź
        Ustaw swApp = Application.SldWorks
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, Fałsz, 0, Nic, 0)
swModel.Paste

2

Witam

Twój "swModel" nie jest zdefiniowany, spróbuj wstawić:

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

 

Zamiast:

Ustaw swApp = Application.SldWorks
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, Fałsz, 0, Nic, 0)
swModel.Paste

Pozdrowienia

3

nikiel jego spacer bardzo dziękuję :)