Attachment 163864 Details for Bug 135173 – modified macro toto show the heights of push button 1 for all cycles

modified macro toto show the heights of push button 1 for all cycles

LO7testMacro_mod.bas (text/plain), 1.26 KB, created by Gerhard Weydt on 2020-08-01 22:32:03 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Gerhard Weydt

Created: 2020-08-01 22:32:03 UTC

Size: 1.26 KB

patch

obsolete

>Sub LO7testMacro
>   Dim file    As String : file = ConvertToUrl("path/file") ' LO7testD2.ods (= copy of LO7testA1.ods)
>                                                            ' LO7testB2.ods (= copy of LO7testB1.ods)
>                                                            ' LO7testC2.ods (= copy of LO7testC1.ods)
>                                                            ' LO7testD2.ods (= copy of LO7testD1.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
>   Dim arrHeight(1 TO 100) as long
>   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
>      arrHeight(idx) = doc.currentController.getControl(doc.DrawPages(0).Forms(0).getByName("Push Button 1")).Size.Height
>      doc.Store'ASURL(file,dummy())
>      doc.Close(False)
>   Next idx
>   MsgBox("Finished - " & idxmax & " cycles done !")
>   Xray arrHeight
>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