Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.