copie d'image dans usf

G

Guest

Guest

• 27 Novembre 2008

• #2

Re : copie d'image dans usf

Bonjour JF,

Voici une solution d'après une fonction (dans un module) de STEPHEN BULLEN.

A+

 

Vote positif 0 Vote négatif

J

jf27

XLDnaute Occasionnel

• 27 Novembre 2008

• #3

Re : copie d'image dans usf

salut Hasco

Merci de ta réponse.
En effet cela marche très bien pour copier.

Par contre j'ai tjrs mon pb de récupérer le nom des images qui sont dans la feuille?
Tu as des pistes?
Merci
@+
JF27

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 27 Novembre 2008

• #4

Re : copie d'image dans usf

RE,

Par nom des images tu veux parler des noms de fichiers des images?

Si oui, je n'ai jamais trouvé.
Excel fait une copie de l'image et la garde dans les ressources du fichier sans garder le chemin apparement.

A+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Novembre 2008

• #5

Re : copie d'image dans usf

Bonjour,

Code:

  For Each s In Sheets("photos").Shapes
    MsgBox s.Name  
  Next s

JB

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 27 Novembre 2008

• #6

Re : copie d'image dans usf

Bonsoir Jacques,

tu n'aurais pas une réponse concernant les chemins et noms de fichiers images, contenues dans un shape ou un contrôle image de userform?

Il semble qu'excel et les autres programmes d'office également ne conservent pas ces noms et chemins. Je me trompe?

A+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 27 Novembre 2008

• #7

Re : copie d'image dans usf

Bonsoir Hasco

Hasco à dit:

Il semble qu'excel et les autres programmes d'office également ne conservent pas ces noms et chemins. Je me trompe?

A+

Cliquez pour agrandir...

Effectivement dans excel les dessins sont nommés "Picture 9" Picture ou Image suivi d'un numéro d'ordre.

Il suffit d'affecter une macro pour trouver le numéro.

Un fil ou on trouve une application pour afficher les dessins contenus dans une feuille

Lien supprimé

JP

 

Dernière édition: 27 Novembre 2008

Vote positif 0 Vote négatif

J

jf27

XLDnaute Occasionnel

• 28 Novembre 2008

• #8

Re : copie d'image dans usf

super.

Merci à tous, cela fonctionne en cherchant le nom puis en applicant la routine de habsco.

merci à tous

 

Vote positif 0 Vote négatif

J

jf27

XLDnaute Occasionnel

• 28 Novembre 2008

• #9

Re : copie d'image dans usf

jf27 à dit:

super.

Merci à tous, cela fonctionne en cherchant le nom puis en applicant la routine de habsco.

merci à tous

Cliquez pour agrandir...

Aiie, je me suis emballé, cela ne fonctionne "pas"

cela me recopie bien les images mes aussi toutes les shapes, ce qui est logique.

Comment puis je différencier une image d'une autre shape dans la feuille ?

Merci
@+
jf 27

 

Vote positif 0 Vote négatif

J

jf27

XLDnaute Occasionnel

• 28 Novembre 2008

• #10

Re : copie d'image dans usf

j'avais oublié le code

Code:

 For i = 1 To 14
  For Each s In Sheets("file").Shapes
    nomimage(i) = s.Name
 MsgBox "nomimage:" & nomimage(i)
 Next s
 Next i
 
 
 
    Dim shp As Shape
    Set shp = Sheets("file").Shapes(nomimage(1))
    shp.CopyPicture
    Set photocar1.Picture = PastePicture()

une piste pour contourner le pb, je connait la position , N° de cells des images que je veux recopier dans mon userform.

Est ce qu'il existe un code qui permettrait de dire

photocar1.picture = cells(x,y).shapes ...??

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 28 Novembre 2008

• #11

Re : copie d'image dans usf

Bonjour,

Code:

Sub shapestype()
  i = 2
  For Each s In ActiveSheet.Shapes
   Cells(i, 1) = s.Type
   Cells(i, 2) = s.Name
   i = i + 1
  Next s
End Sub

JB

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 28 Novembre 2008

• #12

Re : copie d'image dans usf

Bonjour

Une piste
En reprenant la structure de ton programme
For i = 1 To 14
For Each s In Sheets("file").Shapes
nomimage(i) = s.Name
MsgBox "nomimage:" & nomimage(i)
Next s
Next i
Afficher le nom de l'image et poser la question s'il faut changer le nom , si oui affecter le nom à l'image avec s.Name= nouveau nom.
Ce qui permet par la suite de sélectionner l'image.

JP

 

Vote positif 0 Vote négatif

J

jf27

XLDnaute Occasionnel

• 28 Novembre 2008

• #13

Re : copie d'image dans usf

C ok JB, merci !

le code si ca peut servir !

Code:

'Initialisation des images
  i = 1
For Each s In Sheets("file").Shapes
    If s.Type = 13 Then
    nomimage(i) = s.Name
    i = i + 1
    End If
Next s
 
    Dim shp As Shape
    Set shp = Sheets("file").Shapes(nomimage(3))
    shp.CopyPicture
    Set photocar1.Picture = PastePicture()

 

Vote positif 0 Vote négatif