Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Shapes, ShapeRange, DrawingObject ?

Shapes, ShapeRange, DrawingObject ?

15 réponses
Avatar
galopin01
Bonjour,
J'ai quelques macros de ce genre que j'aimerai bien optimiser :

ActiveSheet.Shapes("Hold1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
Selection.ShapeRange.Fill.BackColor.SchemeColor = 13

J'ai essayé quelques variations sur le thème de DrawingObject mais la bête
résiste !

Est-ce possible ? Avec quelle syntaxe ?
Merci.

A+
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Tatanka
Bonjour,

Essaie ceci :

With ActiveSheet.Shapes("Hold1")
.Fill.ForeColor.SchemeColor = 52
.Fill.BackColor.SchemeColor = 13
End With

Serge

"galopin01" a écrit dans le message de news:
Bonjour,
J'ai quelques macros de ce genre que j'aimerai bien optimiser :

ActiveSheet.Shapes("Hold1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
Selection.ShapeRange.Fill.BackColor.SchemeColor = 13

J'ai essayé quelques variations sur le thème de DrawingObject mais la bête résiste !

Est-ce possible ? Avec quelle syntaxe ?
Merci.

A+

Avatar
galopin01
Mais c'est bien sur !
Merci encore.
A+

"Tatanka" a écrit dans le message de news:
O%23JNJ%
Bonjour,

Essaie ceci :

With ActiveSheet.Shapes("Hold1")
.Fill.ForeColor.SchemeColor = 52
.Fill.BackColor.SchemeColor = 13
End With

Serge

"galopin01" a écrit dans le message de
news:
Bonjour,
J'ai quelques macros de ce genre que j'aimerai bien optimiser :

ActiveSheet.Shapes("Hold1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
Selection.ShapeRange.Fill.BackColor.SchemeColor = 13

J'ai essayé quelques variations sur le thème de DrawingObject mais la
bête résiste !

Est-ce possible ? Avec quelle syntaxe ?
Merci.

A+





Avatar
galopin01
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text
Ma fenêtre d'exécution reste intraitable !
A+

"galopin01" a écrit dans le message de
news: %
Mais c'est bien sur !
Merci encore.
A+

"Tatanka" a écrit dans le message de news:
O%23JNJ%
Bonjour,

Essaie ceci :

With ActiveSheet.Shapes("Hold1")
.Fill.ForeColor.SchemeColor = 52
.Fill.BackColor.SchemeColor = 13
End With

Serge

"galopin01" a écrit dans le message de
news:
Bonjour,
J'ai quelques macros de ce genre que j'aimerai bien optimiser :

ActiveSheet.Shapes("Hold1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
Selection.ShapeRange.Fill.BackColor.SchemeColor = 13

J'ai essayé quelques variations sur le thème de DrawingObject mais la
bête résiste !

Est-ce possible ? Avec quelle syntaxe ?
Merci.

A+









Avatar
Caetera
"galopin01" a écrit dans le message de news:

Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text



***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc
Avatar
galopin01
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:

"galopin01" a écrit dans le message de
news:
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text



***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc

Avatar
galopin01
Bonjour,
Dans le même ordre d'idée... (Pas taper... Hein !)

Cette fois ci l'objet est une image issue de la boite d'outils contrôle...
(2003)
Je voudrais pouvoir écrire :
Sh.Image1.Picture = Feuil1.DrawingObjects(a).Picture
ou :
Sh.Image1.Picture = Feuil1.Shapes(a).Picture
Sans être obligé d'écrire 200 fois :

If a = 1 Then Sh.Image1.Picture = Feuil1.Image1.Picture
If a = 2 Then Sh.Image1.Picture = Feuil1.Image2.Picture
...

Mais la bête est de plus en plus rétive !
(ça doit être moi la bête...)
Merci !


"galopin01" a écrit dans le message de
news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:

"galopin01" a écrit dans le message de
news:
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text



***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc





Avatar
Daniel.C
Bonjour.
Tu peux risquer :
sh.Shapes("image" & a).OLEFormat.Object.Object.Picture = _
Feuil1.Shapes("image" & a).OLEFormat.Object.Object.Picture
ou :
Sh.DrawingObjects("image" & a).Object.Picture = _
Feuil1.DrawingObjects("image" & a).Object.Picture
Cordialement.
Daniel

Bonjour,
Dans le même ordre d'idée... (Pas taper... Hein !)

Cette fois ci l'objet est une image issue de la boite d'outils contrôle...
(2003)
Je voudrais pouvoir écrire :
Sh.Image1.Picture = Feuil1.DrawingObjects(a).Picture
ou :
Sh.Image1.Picture = Feuil1.Shapes(a).Picture
Sans être obligé d'écrire 200 fois :

If a = 1 Then Sh.Image1.Picture = Feuil1.Image1.Picture
If a = 2 Then Sh.Image1.Picture = Feuil1.Image2.Picture
...

Mais la bête est de plus en plus rétive !
(ça doit être moi la bête...)
Merci !


"galopin01" a écrit dans le message de news:

[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:

"galopin01" a écrit dans le message de
news:
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text



***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc





Avatar
Misange
bonjour

for a=1 to 220
Sh.Image1.Picture = Feuil1.DrawingObjects("image" & a).Object.Picture
next a

Misange migrateuse
http://www.excelabo.net


galopin01 a écrit :
Bonjour,
Dans le même ordre d'idée... (Pas taper... Hein !)

Cette fois ci l'objet est une image issue de la boite d'outils contrôle...
(2003)
Je voudrais pouvoir écrire :
Sh.Image1.Picture = Feuil1.DrawingObjects(a).Picture
ou :
Sh.Image1.Picture = Feuil1.Shapes(a).Picture
Sans être obligé d'écrire 200 fois :

If a = 1 Then Sh.Image1.Picture = Feuil1.Image1.Picture
If a = 2 Then Sh.Image1.Picture = Feuil1.Image2.Picture
...

Mais la bête est de plus en plus rétive !
(ça doit être moi la bête...)
Merci !


"galopin01" a écrit dans le message de
news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:

"galopin01" a écrit dans le message de
news:
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text


***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc








Avatar
Daniel.C
Bonjour Misange.
Sais-tu quel est le type d'objet représenté par Image1 ?
(par ailleurs, je pense que la boucle est superflue...)
Cordialement.
Daniel

bonjour

for a=1 to 220
Sh.Image1.Picture = Feuil1.DrawingObjects("image" & a).Object.Picture
next a

Misange migrateuse
http://www.excelabo.net


galopin01 a écrit :
Bonjour,
Dans le même ordre d'idée... (Pas taper... Hein !)

Cette fois ci l'objet est une image issue de la boite d'outils contrôle...
(2003)
Je voudrais pouvoir écrire :
Sh.Image1.Picture = Feuil1.DrawingObjects(a).Picture
ou :
Sh.Image1.Picture = Feuil1.Shapes(a).Picture
Sans être obligé d'écrire 200 fois :

If a = 1 Then Sh.Image1.Picture = Feuil1.Image1.Picture
If a = 2 Then Sh.Image1.Picture = Feuil1.Image2.Picture
...

Mais la bête est de plus en plus rétive !
(ça doit être moi la bête...)
Merci !


"galopin01" a écrit dans le message de
news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:

"galopin01" a écrit dans le message de
news:
Euh... SVP... Et dans le même esprit.
Pour redéfinir le texte de la Shape sans la sélecter ?
La shape est une ovale de la Boite d'utils Dessin (Excel 2003)
J'ai un petit peu de mal à y retrouver mes petits entre tous ces objets.
J'ai même gratté du coté de TextFrame.Characters.Text


***************

ActiveSheet.Shapes("SonNom").TextFrame.Characters.Text = "12345"

Etc








Avatar
Misange
Daniel.C a écrit :
Bonjour Misange.
Sais-tu quel est le type d'objet représenté par Image1 ?
(par ailleurs, je pense que la boucle est superflue...)
Cordialement.
Daniel


t'as farpaitement raison :-) lu trop vite
je retourne bronzer !

Misange migrateuse
http://www.excelabo.net
1 2