inserer une image dans le fond d'une shape [Résolu]

[cortex59]

bonjour

je cherche a ajouter une image dans une shape
voici moon code

Code :

1
2
3
4
Dim strImage As String
Dim Sh As Visio.shape
Set Sh = parent.getVisioElem().Shapes("boutoncolor3dOff").Shapes("backOff")
strImage = "C:\toto.jpg"

Maintenant comment dois-je faire pour que l'image strImage soit ajouté en fond a la shape

sh. ...

avez vous des idées a me proposer

[nicolas_151]

Salut Cortex59

Pourquoi ne pas insérer l'image dans le dessin ,
la positionne en fonction de ta forme, et grouper le tous ?

[cortex59]

ca c est trop facile lol

je voudrais que l'utilisateur personalise sont bouton. donc c'est lui qui choisi le chemin. est ce que tu a une idée pour realiser ceci?

merci

[nicolas_151]

Voir sujet déplacer

pour l'insertion de l'image tu demande le chemin
puis tu fait comme dit dans l'autre chemin.

[nicolas_151]

que fait ton inserfromfile ?

[cortex59]

RE

est ce que tu a une idee pour mettre cette image dans cette shape?

moi je croi qu'il fau faire comme la couleur de fond

changer la couleur de fond:

Code :

sh.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "RGB(0,0,255)"

est ce que tu sais ou je peu avoir de la doc sur CellsSRC et sur ces parametre
car j'ai vu qu'il y avait

Sh.CellsSRC(visSectionObject, visRowImage, visImage...)
Mais ca na pas l'air de fonctionner

des idées?

merci

[nicolas_151]

j'ai regardé pour insère une image avec la shape sheet
Mais aucune section ne correspond.
Si tu arrive à le faire manuellement fait le puis regarde comment c'est enregistrer dans la shapesheet


Pour avoir des connaissances sur CellSRC télécharge le SDK Visio lance le puis tape en recherche CellSRC

Il y a bien une section Image
mais c'est pour rajuster l'image

il y a peut être une solution en passant par l'insertion des champs mais je ne connait pas de formule qui permettrai d'insérer un objet

[cortex59]

A ton avis Nicolas est ce que je peux inserer une image dans une shape??

sachant que j'ai aucun probleme pour changer la couleur de fond comme ceci

Code :

1
2
3
Set shpText = parent.getVisioElem().Shapes("boutoncolor3dOff").Shapes("backOfffonce")
    st = "RGB(" + Format(r) + "," + Format(g) + "," + Format(b) + ")"
    shpText.CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = st

est ce que je pourrais definir mon image comme papier paint ou couleur de fond??

merci

[nicolas_151]

J'ai regardé ton problème déjà tu ne peux pas insère une image dans la cellule couleur de fond car elle fait référence à une donnée nombre référencer elle-même a une couleur

La cellule Pattern fait référence au motif mais c'est des valeurs déjà enregistrer.

Le code Picture du Shape est en lecture seule donc pas d'insertion.
Le code Inserttofile permet d’insère un fichier mais en lien soit le nom soit un icone.

J'ai remarqué que dans ton code tu recherche un Shape d'une forme grouper
alors la solution qui me vient
C’est de définir cette Shape comme un contrôle image, insert contrôle Microsoft Form image.

avec ceci tu peux insert une image à partir d'un fichier
Propriéte picture => loadpicture(filename)

il n'y a pas de moyen direct pour inserer une image dans une forme sous Visio 2003 au moins.

[cortex59]

C’est de définir cette Shape comme un contrôle image, insert contrôle Microsoft Form image

ok mais je sais pas comment je defini la shape comme controle image

merci pour ton aide

[nicolas_151]

Escuse Moi, Mal Exprimer

tu ne definit pas un shape en contrôle image

tu insert le contrôle image

dans menu insert contrôle puis -> Microsoft Form image

ainsi tu obtient un controle .

[cortex59]

OK
j'essaye ca cette semaine je te dit si ca fonctionne
mais c'est bien parti

merci

[cortex59]

j'ai inserer l'image a mon composant
mais je ne trouve pas comment afficher l'image

Code :

    Set Sh = parent.getVisioElem().Shapes("boutonimage")

tu a une idee
merci

[nicolas_151]

Voici un bout de code permettant de mettre une image dans un controle image qui est dans un objet
a toi de l'adapter

Code :

1
2
3
4
5
6
Dim mag As Image
 
Set mag = ThisDocument.Image3 ' image 3 est dans une forme grouper
 
 
mag.Picture = LoadPicture("D:\Documents And Settings\All Users\Documents\Mes images\Échantillons d'images\Nénuphars.jpg")

[cortex59]

bon j'ai essayer ceci mais j'ai une erreur d'incompatibilite de type

Code :

1
2
3
4
    Dim mag As Image
 
Set mag = parent.getVisioElem().Shapes("boutonimage")
mag.Picture = LoadPicture("C:\toto.jpg")

mon image est dans un objet mais le code

Code :

parent.getVisioElem().Shapes("boutonimage")

retourne un Visio.shape

mais si je mais

Code :

Dim mag as Visio.shape

le mag.picture ne fonctionne plus

des idées?

merci

[cortex59]

Ton code fonctionne si le controle image et sur la feuille
comment je dois faire pour le mettre dans une shape
merci

[nicolas_151]

Non
même si le control est dans le Shape le programme fonctionne
c'est ce que j’ai testé car image3 était dans une forme grouper insérer dans la page a partir d'un gabarit

[cortex59]

OK ca fonctionne

MAIS (lol toujour un MAIS)

a chaque fois que tu ajoute un objet le nom de l'image change. est ce que je peu savoir le nom de l'image si je connais le nom de l'objet??

ET comment on peut mettre l'image a la taille du controle image??

[cortex59]

j'ai essayer ceci pour ajuster la taille

mag.Picture.Height = ThisDocument.Image4.Picture.Height

mais ca ne fonctionne pas "propieter non gerer"

merci de ton aide

[cortex59]

TROUVE pour dimensionner l'image

Code :

mag.PictureSizeMode = fmPictureSizeModeStretch