creer un objet [Résolu]

[cortex59]

bonjour,
j'ai creer un dijoncteur dans mon gabarit donc j'ai plusieur shape car je voudrais fermer le disj en fonction de ce que l'utilisateur demande

je coudrais rendre visible ou invisble la shape "DJ ouvert" et "Dj fermer" ou changer les couleurs

Donc je doit ecrire mon code dans module ou mmodule de class?
et comment j'accede a la fonction visible?

merci

[cortex59]

donc comme je comprend
dans fenetre -> afficher la feuille shapesheet -> dblclick j'appele un module
ce module permet d'apeleler ma userform. ca c OK

mais maintenant comment je rend visible les certaine shape de mon objet et sutrtout ou va ce code (dans un module de class si oui je fais appel a ce module a quel moment?

merci

[nicolas_151]

Salut

Pourquoi ne pas mettre ton objet en transparent 100% pour invisible
et 0% pour visible

[cortex59]

OK mais comment

pour l'instant j'ai recuperer ma shape

Code :

1
2
Dim sh As Visio.shape
Set sh = parent.getVisioElem().Shapes("ouvert")

donc comment fait ton soit pour la mettre visible invisble ou transparent?

sh.CellsSRC(visSectionObject, ...
un truc comme ca non?


merci

[cortex59]

Set sh = parent.getVisioElem().Shapes("ouvert")

ceci ne fonctionne meme pas
comment je dois declarer parent

dim parent as ...

[nicolas_151]

Cellule de la shape sheet

si ton objet possede:

un fond : FillBkgndTrans = 100%
FillForegndTrans = 100%
Un contour : LineColorTrans = 100%
du texte : Hidetext = False

[nicolas_151]

Envoyé par cortex59

Set sh = parent.getVisioElem().Shapes("ouvert")

ceci ne fonctionne meme pas
comment je dois declarer parent

dim parent as ...

Pourquoi passer par un parent ?

[cortex59]

je ne sais pas trop comment je doit faire lol

tu ferais comment?

[nicolas_151]

moi ce que je ferai

Code :

1
2
3
4
5
6
7
Dim shap As Visio.Shapes
Set shap = ActivePage.Shapes.Item("Dijoncteur")
shap.Cells("FillBkgndTrans").Result("%") = 100
shap.Cells("LineColorTrans").Result("%") = 100
.
.
.

sinon il y au une autre méthode sans passer par VBA
=IF(STRSAME(Condition,= résultat),"valeur a mettre dans la cellule :","Sinon autre valeur")
équation a entrée dans la cellule concerné

tu pourrais créer une action qui quand on appuis on masque ou on affiche, mais ce a peut être assez compliquer mais plus sympa comme résultat

[cortex59]

il ne trouve pas ma shape qui est dans mon objet

Code :

Set shap = ActivePage.Shapes("ouvert")

[nicolas_151]

Code :

1
2
Dim shap As Visio.Shapes
Set shap = ActivePage.Shapes.Item("Dijoncteur").Shapes.Item("ouvert")

Selection de lobjet
puis de l'objet dans lobjet

[cortex59]

ceci ne fonctionne pas
voici mon arboresance

- Disjoncteur
- DJ
.ouvert
.ferme

[nicolas_151]

RoHHHH

excuse

Code :

1
2
Dim shap As Visio.Shape
Set shap = ActivePage.Shapes.Item("Dijoncteur").Shapes.Item("DJ.ouvert")

un s c'est glisser dans ma déclaration

si tu possède plusieurs disjoncteur faire une recherche par parcourt pour la première sélection

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim obs As Visio.Shapes
 Dim ob  As Visio.Shape
 
 ' Création collection Objets de la pages
 Set obs = ThisDocument.Application.ActivePage.Shapes
 
 
 For Each ob In obs
   If InStr(ob.NameU, "Dijoncteur") Then    
...
end if
next

[cortex59]

Ceci ne fonctrionne toujour pas!

donc j'ai creer un composant dans le gabarit visio. Ce composant s'appel "disjoncteur".
j'ai ensuite desinner 2 traits un vertical et un en diago ils s'appels "ouvert" et "ferme".
Puis j'ai gouper ces 2 traits. le groupe s'appel "DJ"

l'erreur qui ressort est : "Nom d'objet introuvable"

merci

[nicolas_151]

ton dj est dans dijoncteur
alors il faut un niveau de plus

Code :

1
2
Dim shap As Visio.Shape
Set shap = ActivePage.Shapes.Item("Dijoncteur").Shapes.Item("DJ")Shapes.Item("Ouvert")

Mais procede par elimination

tu selectionne dijoncteur ?
tu selectionne dj ?
tu selectionne Ouvert ?

en fait tu possede trois nieveaux (si j'ai bien compris)

[nicolas_151]

Voila ce que tu devais mettre

Code :

1
2
3
4
5
Dim shap As Visio.shape
Dim shap1 As Visio.shape
 
Set shap = ActivePage.Shapes.Item("Disjoncteur").Shapes.Item("ouvert")
Set shap1 = ActivePage.Shapes.Item("Disjoncteur").Shapes.Item("ferme")

tu as seulement oublier de définir shap1

[cortex59]

Quelle erreur de debutant
dans tout les cas merci pour ton aide

Par contre j'ai une autre question sur ce sujet :

Si je met plusieurs disjoncteur si je clique sur n'importe lequel il bouge le premier comment je peux les faire bouger seperement?

merci

[cortex59]

Il faut que je change le active page NON?
MAIS par quoi?

merci

[nicolas_151]

Dans ce que je tai renvoyer tu a regarder la procédure g
avec la sélection

copie du code de départ

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim sel As Visio.Selection   ' variable sélection
Dim eqt As Visio.shape       ' Variable dj
Dim shap As Visio.shape      ' Objet ouvert
Dim shap1 As Visio.shape     ' Objet ferme
 
 
Set sel = ActiveWindow.Selection ' création de la sélection
Set eqt = sel.Item(1)            ' sélection de l'objet
 
Set shap = eqt.Shapes.Item("ouvert")          'sous objet
Set shap1 = eqt.Shapes.Item("ferme")

Avec cela seule le disjoncteur sélectionner bouge

[cortex59]

Impecable tu est un AS
a bientot et encore merci