Shapes, ShapeRange, DrawingObject ?

Le
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+
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #21602921
Bonjour,

Essaie ceci :

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

Serge

"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+

galopin01
Le #21606091
Mais c'est bien sur !
Merci encore.
A+

"Tatanka" O%23JNJ%
Bonjour,

Essaie ceci :

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

Serge

"galopin01" 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+





galopin01
Le #21607021
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" news: %
Mais c'est bien sur !
Merci encore.
A+

"Tatanka" O%23JNJ%
Bonjour,

Essaie ceci :

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

Serge

"galopin01" 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+









Caetera
Le #21607121
"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



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

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

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

Merci ++

"Caetera"
"galopin01" 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

galopin01
Le #21619971
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" news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera"
"galopin01" 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





Daniel.C
Le #21620581
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"
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera"
"galopin01" 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





Misange
Le #21620931
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" news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera"
"galopin01" 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








Daniel.C
Le #21621231
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" news:
[péter un cable !]... J'arrête ! (heu...demain...!!!)

Merci ++

"Caetera"
"galopin01" 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








Misange
Le #21621651
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
Publicité
Poster une réponse
Anonyme