Hellow
The com.sun.star.text.TextGraphicObject 's property ActualSize is set 0 in both
Height and Width when accessed whith a Basic Program in OpenOffice 2.2. (Images
in an .odt Writer document)
This does not happen in OpenOffice 2.1
I search for a issue but did not found any. Has any one see this behavior or
register any issue like this?
Please see code bellow
Thank you
Roberto
Sub rob_images()
Dim oDocument As Object
Dim oText As Object
Dim oImages As Object
Dim lista
Dim oImg As Object
Dim n As Integer
Dim rsz_x As Long
Dim rsz_y As Long
Dim url As String
oDocument = ThisComponent
oText = oDocument.Text
oImages=oDocument.getGraphicObjects
lista=oImages.getElementNames()
tot=UBound(lista)
sMsg="Total: " + tot + " "
For n = 0 To tot
sMsg=sMsg + lista(n) + " "
oImg=oImages.getByIndex(n)
rsz_y=oImg.ActualSize.Height
rsz_x=oImg.ActualSize.Width
t_y=oImg.Height
t_x=oImg.Width
url=oImg.GraphicURL
Msgbox "Tamanho Real(" + n + ") " + rsz_x + " " + rsz_y + "
oImg.Height=" + t_y + " oImg.Width=" + t_x + " de " + lista(n) + " URL: " + url
Next n
MsgBox sMsg,0,"Imagens"
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
