Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Stückliste mit Bildern nach Excel exportieren klappt nicht

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !
Autor Thema:  Stückliste mit Bildern nach Excel exportieren klappt nicht (2431 mal gelesen)
EMS2018
Mitglied



Sehen Sie sich das Profil von EMS2018 an!   Senden Sie eine Private Message an EMS2018  Schreiben Sie einen Gästebucheintrag für EMS2018

Beiträge: 53
Registriert: 12.02.2019

erstellt am: 24. Sep. 2020 10:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo
Ich bekomme es nicht hin das eine Stückliste mit Bildern nach Excel exportiert wird.
Die Bilder sind nicht mit den Zellen verknüpft. Was muss ich tun damit diese Verknüpfung erzeugt wird?
Hilfe wäre super
Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

himmelblau
Mitglied



Sehen Sie sich das Profil von himmelblau an!   Senden Sie eine Private Message an himmelblau  Schreiben Sie einen Gästebucheintrag für himmelblau

Beiträge: 532
Registriert: 11.11.2004

erstellt am: 24. Sep. 2020 11:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich


sppkwfqaeh.png

 
Welche inv version? Welche excel version? Was meinste mit verknüpfung?
Bei mir sind die bilder von zellenposition und -größe abhängig. Meinste das?

------------------
himmelblau

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Caduke
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Caduke an!   Senden Sie eine Private Message an Caduke  Schreiben Sie einen Gästebucheintrag für Caduke

Beiträge: 4
Registriert: 25.09.2020

Inventor 2021

erstellt am: 25. Sep. 2020 14:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich


Stuli001.JPG


Stuli002.JPG

 
Hallo zusammen,
habe das gleiche Problem.
Wenn ich in einer Baugruppe auf Stückliste gehe und dort „Stückliste exportieren“ verwende (Ansicht für Export: Strukturiert)
sind die Thumbnails in der .xlsx Datei falsch formatiert.
Diese dann händisch anzupassen ist ein großer Aufwand.
Zu beginn hat der Export korrekt funktioniert (Stüli 001).
Nachdem ich den Rechner wechseln musste ist die Formatierung der Bilder falsch (Stüli 002).
Habe von einem Lenovo Esprimo auf eine Think Station P520 gewechselt.
P520: Intel Xeon W-2125 / Nvidia Quadro RTX 4000 / 64GB Arbeitsspeicher
In Excel habe ich schon auf „Für Kompatibilität optimiert“ geändert.
Ebenso wurde Inventor mit dem Dienstprogramm zurückgesetzt.
Alles ohne Änderungen der .xlsx Dateien.
Bin für jeden Vorschlag offen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



Sehen Sie sich das Profil von freierfall an!   Senden Sie eine Private Message an freierfall  Schreiben Sie einen Gästebucheintrag für freierfall

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 25. Sep. 2020 14:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich

ich habe es bei mir rausgelöscht und bekomme es nicht wieder angezeigt, deswegen kann ich keinen Test fahren sorry. herzlich Sascha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2428
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 25. Sep. 2020 16:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich

Hallo

Seid ihr sicher dass da kein Makro im Spiel war?
Ich habe es wie folgt gelöst:
1. Nach dieser Anleitung eine persönliche Makromappe anlegen.
2. Mit ALT+F11 in den Makroeditor wechseln und in "Modul1" (unter "VBAProject (PERSONAL.XSLB)" --> "Module") das eben aufgezeichnete Makro durch unten stehenden Code ersetzen.
3. In den Optionen von Excel unter Menüband anpassen einen Button für das Makro erstellen.

Ab jetzt exportierte Stückliste öffnen, Button drücken, fertsch.

Code:

Option Explicit

    Sub ResizeCellToFitPicture()
    Dim shp As Shape
    Dim cel As Range
    Dim celColWidth As Single, celWidth As Single, PicHeight As Single, PicWidth As Single
    Dim i As Long
   
    For Each shp In ActiveSheet.Shapes
        Set cel = shp.TopLeftCell
        PicHeight = shp.Height
        PicWidth = shp.Width
        shp.Left = cel.Left
        shp.Top = cel.Top
       
        cel.EntireRow.RowHeight = PicHeight
        celColWidth = cel.EntireColumn.ColumnWidth
        celWidth = cel.EntireColumn.Width
        celColWidth = (PicWidth / celWidth) * celColWidth
        celColWidth = Application.Min(255, celColWidth)
        cel.EntireColumn.ColumnWidth = celColWidth
    Next
   
    End Sub


------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Caduke
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Caduke an!   Senden Sie eine Private Message an Caduke  Schreiben Sie einen Gästebucheintrag für Caduke

Beiträge: 4
Registriert: 25.09.2020

Inventor 2021

erstellt am: 28. Sep. 2020 09:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich


Test001.JPG


Test002.JPG

 
Danke rkauskh, habe den Button mit dem Makro erstellt.
Die Bilder werden nun formatiert, leider werden diese aber nicht an die Zellengröße angepasst.
Bild 001 nach öffnen der Excel. Bild 002 nach drücken des neuen Buttons
Liegt dass nun am Makro oder an der vorherigen Formatierung der Bilder?
Sorry arbeite einfach zu selten mit VBA.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2428
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 29. Sep. 2020 11:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich

Hallo

Das Makro passt die Zeilenhöhe und Spaltenbreite an die aktuelle Höhe/Breite des Bildes an. Sollte es jedenfalls. Auf deinen Bildern sieht es aus, als wäre nichts passiert.
Kannst du das Makro bitte mal direkt zweimal nacheinander ausführen? Funktioniert es dann?

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Caduke
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Caduke an!   Senden Sie eine Private Message an Caduke  Schreiben Sie einen Gästebucheintrag für Caduke

Beiträge: 4
Registriert: 25.09.2020

Inventor 2021

erstellt am: 29. Sep. 2020 11:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich


Test003.JPG


Test004.JPG

 
Wenn ich den Button zweimal drücke werden die Bilder größer, die Spalten und Zeilen auch.
Die Bilder passen sich aber nicht richtig an die Spaltenbreite an und stehen über.
Wenn ich nun ein drittes Mal den Button drücke kommt die Fehlermeldung laut Bild 003.
Wenn ich Debuggen drücke geht der VBA Editor auf und es wird Bild 004 angezeigt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2428
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 30. Sep. 2020 07:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich

Hallo

Ich habe den Code ergänzt. Kannst du es noch einmal testen?

Code:

Option Explicit

    Sub ResizeCellToFitPicture()
    Dim shp As Shape
    Dim cel As Range
    Dim celColWidth As Single, celWidth As Single, PicHeight As Single, PicWidth As Single
    Dim i As Long
   
    For Each shp In ActiveSheet.Shapes
   
    '======================================================================================
        shp.Placement = xlMove
        shp.LockAspectRatio = msoFalse
        shp.ScaleHeight 1, msoTrue
        shp.ScaleWidth 1, msoTrue
    '======================================================================================
   
        Set cel = shp.TopLeftCell
        PicHeight = shp.Height
        PicWidth = shp.Width
        shp.Left = cel.Left
        shp.Top = cel.Top
       
        cel.EntireRow.RowHeight = PicHeight
        celColWidth = cel.EntireColumn.ColumnWidth
        celWidth = cel.EntireColumn.Width
        celColWidth = (PicWidth / celWidth) * celColWidth
        celColWidth = Application.Min(255, celColWidth)
        cel.EntireColumn.ColumnWidth = celColWidth
    Next
   
    End Sub



------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Caduke
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Caduke an!   Senden Sie eine Private Message an Caduke  Schreiben Sie einen Gästebucheintrag für Caduke

Beiträge: 4
Registriert: 25.09.2020

Inventor 2021

erstellt am: 30. Sep. 2020 08:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich


Meldung001.JPG

 
Es funktioniert. Vielen Dank für die schnelle Hilfe!
Bekomme aber nach einem zweiten Öffnen von Excel die Meldung dass die PERSONAL.XSLB durch mich gesperrt ist.
Siehe Bild.
Bei Schreibgeschützt verwenden funktioniert aber alles.
Könnte mit meiner Installation zusammenhängen. Werde unseren EDV-Mann dazu befragen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Lothar Boekels
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3823
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 30. Sep. 2020 10:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für EMS2018 10 Unities + Antwort hilfreich

moin,

möglicherweise sollte sich die Größe des Bildes aber auch an der Zellengröße orientieren.
Dann die entsprechenden Zeile ersetzen durch:

Code:

shp.Placement = xlMoveAndSize

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz