creer un objet

[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

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

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

Set shap = ActivePage.Shapes("ouvert")

[nicolas_151]

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

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

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

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)