Discussion :

[Beaudelicius]

Bonjour,

J'essaie de déplacer un object (J'ai créer un cercle et un carré) dans ma feuille de calcul. Voici une parti de code que j'ai fait. Ça me donne pas d'erreur, mais on cercle ne bouge pas... (J'ai nommé mon cercle 'Drain')

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MoveObject
Dim oFeuil as object
Dim oDrawPage as object
dim i as integer
 
oFeuil = ThisComponent.sheets.getByName("Input")
oDrawPage = oFeuil.DrawPage
 
for i = 0 to oDrawpage.count - 1
with oDrawpage
if .name = "Drain" then
.position.x = 30
.position.y = 60
end if
end with
next i
 
end sub

Pouvez vous me dire ce qu'il y a de pas correct!!

Merci d'avance!!

[zoom61]

Salut,

Quelque chose comme cela :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub zoom61()
 
Dim oFeuil as object
Dim oDrawPage as object
dim i as integer
 
oFeuil = ThisComponent.sheets.getByName("Input")
oDrawPage = oFeuil.DrawPage
 
for i = 0 to oDrawpage.count - 1
    with oDrawpage
        if .name = "Drain" then
            .positionForme.x = 30
            .positionForme.y = 60
            .Position = positionForme
        end if
    end with
next i
 
End Sub

Cdlt

[Beaudelicius]

Bonjour Zoom61, merci de ta réponse,

Mais j'ai un erreur à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.positionForme.x = 30

Ça indinque l'erreur suivante : Property or method not found: positionForme

J'avais un erreur dans mon code, remplacer la ligne par celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

with oDrawPage(i)

Merci!

[zoom61]

Pouvez-vous joindre un fichier exemple ?

Cdlt

[Beaudelicius]

Voilà!!

MoveDrain.ods

[zoom61]

Comme ceci :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MoveDrain
    dim oFeuil as object
    Dim oDrawPage as object
    Dim i as integer
    Dim positionForme as new com.sun.star.awt.Point
 
    oFeuil = ThisComponent.Sheets.getByName("Input")
    oDrawPage = oFeuil.DrawPage
 
    For i = 0 to oDrawPage.count - 1
        with oDrawPage(i)
            if .name = "Drain" then
                positionForme.X = 5
                positionForme.Y = 5
                .Position = positionForme
            end if
        end with
    next i
 
End sub

@+.

[Beaudelicius]

Parfait ça marche!!!

Un gros merci!!