| |
| 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 (2468 / mal gelesen)
|
EMS2018 Mitglied
Beiträge: 53 Registriert: 12.02.2019
|
erstellt am: 24. Sep. 2020 10:34 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 532 Registriert: 11.11.2004
|
erstellt am: 24. Sep. 2020 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
|
Caduke Mitglied Konstrukteur
Beiträge: 4 Registriert: 25.09.2020 Inventor 2021
|
erstellt am: 25. Sep. 2020 14:25 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 11547 Registriert: 30.04.2004 WIN10 64bit, 32GB RAM IV bis 2022
|
erstellt am: 25. Sep. 2020 14:36 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 25. Sep. 2020 16:25 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 4 Registriert: 25.09.2020 Inventor 2021
|
erstellt am: 28. Sep. 2020 09:28 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 29. Sep. 2020 11:28 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 4 Registriert: 25.09.2020 Inventor 2021
|
erstellt am: 29. Sep. 2020 11:49 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 30. Sep. 2020 07:53 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
Beiträge: 4 Registriert: 25.09.2020 Inventor 2021
|
erstellt am: 30. Sep. 2020 08:46 <-- editieren / zitieren --> Unities abgeben: Nur für EMS2018
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
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 / zitieren --> Unities abgeben: Nur für EMS2018
|