Sauvegarder et importer des formes dans une bibliothèque

[guigol]

Bonjour,

J'ai en ma possession un certain nombre de fichiers excel dans lesquels ont été dessinés des équipements télécoms dans leur baie.

dans l'exemple joint, on peut voir 5 équipements stockés dans une baie.
J'en ai quelques dizaines comme cela.

Pour la suite, je vais avoir à représenter quelques baies dont les équipement stockés changent à chaque fois.

J'ai un tableau qui identifie chacun des équipements à représenter ainsi que sa position. exemple :
eqt1 ___3
eqt2 ___10
eqt3 ___34
eqt4 ___38
eqt4 ___46

M'est-il possible de stocker mes équipements dans une bibliothèque de forme?

une fois cette bibliothèque établie, comment piocher dedans?

Quelles sont les fonctions pour dessiner des formes?

Par avance, merci pour votre aide.


PS : il me reste la solution des images (je fais des copie d'écrans de tous mes équipements) puis je les appelle une à une, mais je trouve que le résultat des images n'est jamais très propre (surtout lorsqu'on redimensionne)

 

[BOISGONTIER]

Re : Sauvegarder et importer des formes dans une bibliothèque

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Images/ChoixGroupeImagexls.xls

JB

 

[guigol]

Re : Sauvegarder et importer des formes dans une bibliothèque

Merci.

Mais est-on obligé de les mettre dans un fichier excel?
il n'est pas possible de les inclure dans les formes proposées par Excel (et donc chargées à l'ouverture du logiciel) ?

De sorte que si je souhaite mettre l'un de ces équipements dans une feuille, je n'ai qu'à la sélectionner dans Insertion/Formes/"Formes persos"

 

[Modeste geedee]

Re : Sauvegarder et importer des formes dans une bibliothèque

Bonsour®

Bonjour,

J'ai en ma possession un certain nombre de fichiers excel dans lesquels ont été dessinés des équipements télécoms dans leur baie.
../..
M'est-il possible de stocker mes équipements dans une bibliothèque de forme?

une fois cette bibliothèque établie, comment piocher dedans?

Quelles sont les fonctions pour dessiner des formes?

il faut sauvegarder tes dessins équipements sous forme de meta fichier Windows=WMF, cliparts
voir proc ci-dessous (attention a bien grouper et nommer les elements)


il faudra ensuite organiser et classer ceux-ci dans un bibliothéque personnalisée
ils seront alors accesssible via le menu inserer cliparts


(volet de droite)




pour sauvegarder tes images :

 Sub SaveShapeAsMetafile()
 'Michel Pierron
 If ThisWorkbook.Sheets(1).Shapes.Count = 0 Then Exit Sub
 On Error GoTo SaveWmf_Error
 Dim Img As Shape, hCopy&, fName$
 For Each Img In ThisWorkbook.Sheets(1).Shapes
 Img.Copy: OpenClipboard 0&
 hCopy = GetClipboardData(14)
 If hCopy Then
 fName = ThisWorkbook.Path & "\" & Img.Name & ".wmf"
 DeleteEnhMetaFile CopyEnhMetaFileA(hCopy, fName)
 EmptyClipboard
 End If
 CloseClipboard
 Next Img
 Exit Sub
SaveWmf_Error:
 MsgBox "Error " & Err.Number & vbLf & Err.Description, 48
 End Sub

 

[guigol]

Re : Sauvegarder et importer des formes dans une bibliothèque

Merci beaucoup.

Effectivement, cela me plait beaucoup comme ca.

Une dernière question annexe.

j'ai réussi a me faire ma petite bibliothèque perso.

Je passe par le code suivant pour l'inserer :

ActiveSheet.Pictures.Insert ( _
        "D:\Documents and Settings\grat\Desktop\WMF\Group 1968.wmf")

mais comment le déplacer, le redimensionner ?

En fait, ma question est plus générales. Comment connaitre les fonctions/méthodes/variables (je ne connais pas le terme exact) qui s'appliquent à pictures.
j'imagine qu'il y a un select.
et que derrrière, je vais pouvoir faire selection. ...
mais qu'est ce qui existe à la place de ces 3 petits points? dans l'aide, je ne trouve pas cela clair.

Encore merci

 

[Modeste geedee]

Re : Sauvegarder et importer des formes dans une bibliothèque

Bonsour®

j'ai réussi a me faire ma petite bibliothèque perso.

Je passe par le code suivant pour l'inserer :

ActiveSheet.Pictures.Insert ( _
        "D:\Documents and Settings\grat\Desktop\WMF\Group 1968.wmf")

mais comment le déplacer, le redimensionner ?

En fait, ma question est plus générales. Comment connaitre les fonctions/méthodes/variables (je ne connais pas le terme exact) qui s'appliquent à pictures.

c'est une image vectorielle clipart(picture) par opposition a une image Bitmap.
mais c'est avant tout une forme, un objet shape avec ses propriétés corespondantes..
exemple :

With ActiveSheet.Shapes("Picture 3")
    .Top = 300
    .Width = 200
    .Rotation = 90
End With

ne pas oublier que .WMF signifie vectoriel et que l'objet peut etre aussi dégroupé.

 

[guigol]

Re : Sauvegarder et importer des formes dans une bibliothèque

euh question bete :
Comment relies tu "picture 3" et le fichier .wmf?