XL 2010 Trouver le nom des formes qui est sur un onglet

jeanmi

XLDnaute Occasionnel
Bonjour à tous,

Je recherche s'il est possible de trouver le nom des formes qui sont sur un feuille (fonction insertion forme rectangle)
Si je fait une macro auto, je vois que les formes ce nommes, Rectangle, avec un numéro après.

Ma première question qui en comporte deux :
ou trouver ce nom ?
est-il possible de renommer ?

Ma deuxième question :

Est-il possible de copier une image dans cette forme( ça oui) mais sans déformation de l'image ?

Merci pour vos réponses

Cordialement
 
Solution
bonsoir
c'est simple tu change le mode de remplissage
ajoute une shape la nomme"toto"
VB:
Sub add_shape_With_Image()
  Dim shap As Shape
  With ActiveSheet
        Set shap = .Shapes.AddShape(msoShapeRectangle, 270.6, 312, 154.8, 101.4)
        With shap
            .Name = "toto"
            .Fill.Visible = msoTrue
            .Fill.UserPicture "C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg"
        End With
    End With
End Sub

l'image ne me plait plus je la change
Code:
Sub change_l_image()
    With ActiveSheet.Shapes("toto")
        .Fill.UserPicture "C:\Users\Public\Pictures\Sample Pictures\Koala.jpg"
    End With
End Sub

finalement je ne veux plus d'image dans cette shape ("toto")
ben on la rempli en solid
Code:
Sub...

jeanmi

XLDnaute Occasionnel
re
@herve62 ( que je salut) a répondu a ma place
c'est une variable tableau mais a 2 dimensions qu'il te faut
ça peut Etre péché dans une plage directement et simplement
re @patricktoulon à tous,

non @herve62 n'a pas répondu à ta place, il n'a fait qu'un coucou au forum car l'année dernière il à beaucoup travaillé pour m'aider.

donc merci pour ta réponse, mais comme tu as du le constaté je ne suis pas très performant en VBA, donc ta réponse c'est un peut du chinois pour moi, celle du #31.
si tu avais un exemple ou quelque chose pour que je puisse essayé de comprendre.

merci d'avance.

cordialement
 
Dernière édition:

Discussions similaires