Super schéma

Télécharger le projet
Commenter

Description

Une boite à outils de composant électroniques dessinés au millimètre pour être facile à relier. (A condition de mettre la règle au millimètre)

Source / Exemple : 


' Il est possible de créer un bouton qui attache le modèle SuperSchéma au document 
' courant en lançant cette macro
'Super schéma est dans le ZIP

Sub AttacheSchéma()
'
' AttacheSchéma Macro
' Macro créée le 29/10/03 par Frank SAURET
'

    RepModel = Options.DefaultFilePath(wdUserTemplatesPath)
    
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = RepModel + "\SuperSchéma.dot"
    End With
    ActiveDocument.Variables.Add Name:="Compos", Value:="0"
    ActiveDocument.Variables.Add Name:="CouleurDesLignes", Value:=wdColorBlack
    ActiveDocument.Variables.Add Name:="CouleurInterne", Value:=wdColorLightYellow
    ActiveDocument.Variables.Add Name:="CouleurDuTexte", Value:=wdColorBlack
    ActiveDocument.Variables.Add Name:="Transparence", Value:=0

End Sub

Conclusion :


Je n'ai pas trouvé le moyen d'attacher le composant à la souris mais si qqn me dit comment faire ...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_VinceVG)