https://bugs.documentfoundation.org/show_bug.cgi?id=149236

            Bug ID: 149236
           Summary: UI
           Product: LibreOffice
           Version: 7.3.2.2 release
          Hardware: x86-64 (AMD64)
                OS: Windows (All)
            Status: UNCONFIRMED
          Severity: minor
          Priority: medium
         Component: Calc
          Assignee: libreoffice-bugs@lists.freedesktop.org
          Reporter: phili...@quarta.com.br

Created attachment 180306
  --> https://bugs.documentfoundation.org/attachment.cgi?id=180306&action=edit
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

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to