[dev-it] Problema con cornici contenenti immagini

[Marco Caresia]

Ho scritto una macro che ricava automaticamente le dimensioni originali 
di un'immagine e le applica modificando la cornice (se è inclusa una 
didascalia).

Tuttavia per alcune immagini da un errore, come se la voce Size non 
fosse presente; se seleziono l'immagine incriminata e ripeto la macro, 
funziona.

Questo il codice:

Sub DimensioneOriginale
        Dim aSize As New com.sun.star.awt.Size
        
        oDoc = ThisComponent
        oGraphics = oDoc.getGraphicObjects

        For i = 0 to oGraphics.getCount-1
                ographic = oGraphics.getByIndex(i)
                print ographic.linkdisplayname
                oAnchor = ographic.Anchor
                oTextFrame = oAnchor.TextFrame
                
                if vartype(oTextFrame)=9 then
                        oTextFrame.SizeType = 2
                        with ographic
                                aSize = .ActualSize
                                if aSize.Width > 16969 then
                                        flarg = cdbl(aSize.Width)
                                        falt = cdbl(aSize.Height)
                                        fr = flarg / falt
                                        aSize.Width = 16000
                                        
                                        aSize.Height = cint(16000. / fr)
                                end if
                                .Size = aSize
                        end with
                        oTextFrame.Width = aSize.Width
                end if
        next i
End Sub

e qui il file su cui provare:
        http://www.didawiki.org/0105GS-SettingUpOOo.odt

Ciao,
--
MC

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]