Attachment 163850 Details for Bug 135173 – LO7testMacro.bas

LO7testMacro.bas

LO7testMacro.bas (text/plain), 1.09 KB, created by Hans-Werner on 2020-08-01 17:46:07 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Hans-Werner

Created: 2020-08-01 17:46:07 UTC

Size: 1.09 KB

patch

obsolete

>Sub LO7testMacro
>   Dim file    As String : file = ConvertToUrl("path\file") ' LO7testA2.ods (= copy of LO7testA1.ods)
>                                                            ' LO7testB2.ods (= copy of LO7testB1.ods)
>                                                            ' LO7testC2.ods (= copy of LO7testC1.ods)
>                                                            ' LO7testB2.ods (= copy of LO7testC1.ods)
>   Dim doc     As Object
>'  No matter, if "Hidden" is set to 'True' or 'False':
>   Dim arr(0)  As New com.sun.star.beans.PropertyValue : arr(0).Name  = "Hidden"
>                                                         arr(0).Value = True
>   Dim dummy() As Variant
>   Dim idx     As Integer
>   Dim idxmax  As Integer
>   For idx=1 To 100 Step 1
>      idxmax = idx
>      doc = StarDesktop.loadComponentFromURL(file,"_blank",0,arr()) 
>      doc.Sheets(0).Columns(0).optimalWidth = True
>      doc.Sheets(0).Rows(0).optimalHeight   = True
>      doc.StoreAsURL(file,dummy())
>      doc.Close(False)
>   Next idx
>   MsgBox("Finished - " & idxmax & " cycles done !")
>End Sub

Actions: View

Attachments on bug 135173: 163591 | 163592 | 163593 | 163849 | 163850 | 163851 | 163853 | 163854 | 163855 | 163856 | 163857 | 163858 | 163859 | 163864 | 163865 | 163869 | 163870 | 163871 | 163872 | 163873 | 163874 | 181598 | 181599 | 181600 | 181601 | 181602