Re: [libreoffice-users] Code snippet

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.


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