Re: [libreoffice-users] Code snippet

2011/7/31 Andrew Douglas Pitonyak <andrew@pitonyak.org>:
> I expect that you need to set this from the sheets draw page
>
> ' Gets the Shape of a Control( e. g. to reset the size or Position of the
> control
> ' Parameters:
> ' The 'oContainer' is the Document or a specific sheet of a Calc - Document
> ' 'CName' is the Name of the Control
> Function GetControlShape(oContainer as Object,CName as String)
> Dim i as integer
> Dim aShape as Object
>   For i = 0 to oContainer.DrawPage.Count-1
>      aShape = oContainer.DrawPage(i)
>      If HasUnoInterfaces(aShape, "com.sun.star.drawing.XControlShape") then
>         If ashape.Control.Name = CName then
>            GetControlShape = aShape
>            exit Function
>         End If
>      End If
>   Next
> End Function
>
> So, how do I call it?
>
> Sub gcs
>  Dim oSize
>  oSize = GetControlShape(ThisComponent.Sheets(0), "button1").Size
>  Print oSize.Height
>  Print oSize.Width
> End Sub
>
> In this example, I pass the sheet containing the button with the button name
> to the "GetControlShape" function. I forget the unit of measure. Hmm, oh
> yeas, 1" = oSize.Height / 2540
>
> But wait, your units metric. I think life just got easier for you :-), just
> set to 500 for 1/2 CM I believe.

So you mean that the size is measured in 10⁻⁵ m (1/100 000 m)? That's
kind of odd, isn't it? But on the other hand, odd doesn't necessarily
mean wrong…

So this is correct?
500 ⇨ ½ cm=5 mm (cm≠CM, by the way)
1000 ⇨ 1 cm
10 000 ⇨ 1 dm
100 000 ⇨ 1 m



Kind regards

Johnny Rosenberg
ジョニー・ローゼンバーグ

> On 07/30/2011 07:05 PM, Bill Gradwohl wrote:
> > -----BEGIN PGP SIGNED MESSAGE-----
> > Hash: SHA1
> >
> > I've searched and can't figure out how to specify the height of a button
> > at execution time via a basic macro.
> >
> > If "Sheet1" contains a button name "OK", how would I specify a button
> > height of 0.5cm?
> >
> > The only examples I can find are for buttons on forms, not on a sheet
> > itself.
> >
> > - -- Bill Gradwohl
> > Roatan, Honduras
> >
> > -----BEGIN PGP SIGNATURE-----
> > Version: GnuPG v1.4.11 (GNU/Linux)
> > Comment: Using GnuPG with Fedora - http://enigmail.mozdev.org/
> >
> > iEYEARECAAYFAk40jisACgkQ7Orvev+eC8rGHQCgmq3OwAJmVey+UVF051lvj9nj
> > agYAoIiZ3ZEl5074W6+CpTowdUxilfcl
> > =U2Iw
> > -----END PGP SIGNATURE-----
>
> --
> Andrew Pitonyak
> My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
> Info:  http://www.pitonyak.org/oo.php
>
>
> --
> Unsubscribe instructions: E-mail to users+help@global.libreoffice.org
> Problems?
> http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
> Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
> List archive: http://listarchives.libreoffice.org/global/users/
> All messages sent to this list will be publicly archived and cannot be
> deleted

-- 
Unsubscribe instructions: E-mail to users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted