Created attachment 180306 [details] spreadsheet with 2 sheets and a macro Main using macro. adding a sheet (Calc) at any place but at the end may mess up diagrams of "next" sheet. In the example I join. The macro (Main) copy a sheet with 4 diagrams to a new one (Test), then create a new sheet (Concentrateur) before the last copied (Test). Comparing "Test" with "Modèle Séquence" on the "Test" sheet diagrams are not at the right position and 3 is missing. Note that if you move "Test" sheet the diagrams positions are ok! The same if you close and open the spreadsheet. Before creating the last sheet "Concentrateur" the positions are ok too ! Copy of the macro Sub Main dim const nomFeuilleDest = "test" dim const nomFeuilleModeleSequence = "Modèle Séquence" dim const nomFeuilleConcentrateur = "Concentrateur" with thisComponent if .sheets.hasByName( nomFeuilleDest) then _ .sheets.removeByName( nomFeuilleDest) .sheets.copyByName( nomFeuilleModeleSequence, nomFeuilleDest, .sheets.Count) if not .sheets.hasByName(nomFeuilleConcentrateur) then _ .sheets.insertNewByName(nomFeuilleConcentrateur, 2) ' NOTE the "2" end with msgbox "Done !" End Sub Version: 7.3.2.2 (x64) / LibreOffice Community Build ID: 49f2b1bff42cfccbd8f788c8dc32c1c309559be0 CPU threads: 2; OS: Windows 6.1 Service Pack 1 Build 7601; UI render: Skia/Raster; VCL: win Locale: fr-FR (pt_BR); UI: pt-BR Calc: threaded
Confirmed in Version: 7.3.3.1 (x64) / LibreOffice Community Build ID: 1688991ca59a3ca1c74bc2176b274fba1b034928 CPU threads: 8; OS: Windows 10.0 Build 17763; UI render: Skia/Raster; VCL: win Locale: cs-CZ (cs_CZ); UI: cs-CZ Calc: CL Another interesting fact is, if new sheet (Concentrateur) is created before the sheet 'test', then it is functional. Sub Main dim const nomFeuilleDest = "test" dim const nomFeuilleModeleSequence = "Modèle Séquence" dim const nomFeuilleConcentrateur = "Concentrateur" with thisComponent if not .sheets.hasByName(nomFeuilleConcentrateur) then .sheets.insertNewByName(nomFeuilleConcentrateur, 2) 'create the Concentrateur sheet firstly if .sheets.hasByName( nomFeuilleDest) then .sheets.removeByName( nomFeuilleDest) .sheets.copyByName( nomFeuilleModeleSequence, nomFeuilleDest, .sheets.Count) end with msgbox "Done !" End Sub
letting it after, but with .sheets.count (inserting at the end) there is also no problem ... if not .sheets.hasByName(nomFeuilleConcentrateur) then .sheets.insertNewByName(nomFeuilleConcentrateur, .sheets.count)
Dear Philippe Lévi, To make sure we're focusing on the bugs that affect our users today, LibreOffice QA is asking bug reporters and confirmers to retest open, confirmed bugs which have not been touched for over a year. There have been thousands of bug fixes and commits since anyone checked on this bug report. During that time, it's possible that the bug has been fixed, or the details of the problem have changed. We'd really appreciate your help in getting confirmation that the bug is still present. If you have time, please do the following: Test to see if the bug is still present with the latest version of LibreOffice from https://www.libreoffice.org/download/ If the bug is present, please leave a comment that includes the information from Help - About LibreOffice. If the bug is NOT present, please set the bug's Status field to RESOLVED-WORKSFORME and leave a comment that includes the information from Help - About LibreOffice. Please DO NOT Update the version field Reply via email (please reply directly on the bug tracker) Set the bug's Status field to RESOLVED - FIXED (this status has a particular meaning that is not appropriate in this case) If you want to do more to help you can test to see if your issue is a REGRESSION. To do so: 1. Download and install oldest version of LibreOffice (usually 3.3 unless your bug pertains to a feature added after 3.3) from https://downloadarchive.documentfoundation.org/libreoffice/old/ 2. Test your bug 3. Leave a comment with your results. 4a. If the bug was present with 3.3 - set version to 'inherited from OOo'; 4b. If the bug was not present in 3.3 - add 'regression' to keyword Feel free to come ask questions or to say hello in our QA chat: https://web.libera.chat/?settings=#libreoffice-qa Thank you for helping us make LibreOffice even better for everyone! Warm Regards, QA Team MassPing-UntouchedBug