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

  • Initiateur de la discussion Initiateur de la discussion jeanmi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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...
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
569
Réponses
24
Affichages
2 K
Retour