j'ai une présentation à faire avec une cinquantaine d'images. Je veux ombrer
toutes les images de la même manière mais une par une c'est fastidieux.
Existe-t-il un moyen de mettre le même ombrage à 54 photos, par exemple, en
même temps...
Il est possible que cette info ait déjà été donnée mais je ne viens jamais ici
en général et faire une recherche dans tous le forum doit certainement être
très long.
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Moi, j'ai plein de sujets de macro à te proposer pour les soirées d'hiver qui s'annoncent. Par exemple : - Comment enregistrer quelque part un symbole, une forme, un texte, bref un objet quelconque, et le réutiliser dans plusieurs présentations ? Un peu comme les Qickparts de Word. Je suis stupéfait de constater que rien n'est prévu dans PPT pour ça (ou alors, j'ai raté quelque chose). Je parle bien sûr d'un objet PPT, pas d'une image.
Celle-ci pour les très longues soirées alors.
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Si personne ne te trouve une solution à la main, ça me parait une bonne idée, j'ai eu le même souci dans un tout autre domaine.
Si tu manques d'idées, fais signe...
J'en cherche plus trop, mais si tu en as besoin, faut pas hésiter.
Bonne semaine.
-- A+
Bonjour André
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Moi, j'ai plein de sujets de macro à te proposer pour les soirées d'hiver qui
s'annoncent. Par exemple :
- Comment enregistrer quelque part un symbole, une forme, un texte, bref un objet
quelconque, et le réutiliser dans plusieurs présentations ? Un peu comme les Qickparts
de Word. Je suis stupéfait de constater que rien n'est prévu dans PPT pour ça (ou
alors, j'ai raté quelque chose). Je parle bien sûr d'un objet PPT, pas d'une image.
Celle-ci pour les très longues soirées alors.
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles
(ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet
visualisation, que toutes les cases sont bien cochées ?).
Si personne ne te trouve une solution à la main, ça me parait une bonne
idée, j'ai eu le même souci dans un tout autre domaine.
Si tu manques d'idées, fais signe...
J'en cherche plus trop, mais si tu en as besoin, faut pas hésiter.
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Moi, j'ai plein de sujets de macro à te proposer pour les soirées d'hiver qui s'annoncent. Par exemple : - Comment enregistrer quelque part un symbole, une forme, un texte, bref un objet quelconque, et le réutiliser dans plusieurs présentations ? Un peu comme les Qickparts de Word. Je suis stupéfait de constater que rien n'est prévu dans PPT pour ça (ou alors, j'ai raté quelque chose). Je parle bien sûr d'un objet PPT, pas d'une image.
Celle-ci pour les très longues soirées alors.
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Si personne ne te trouve une solution à la main, ça me parait une bonne idée, j'ai eu le même souci dans un tout autre domaine.
Si tu manques d'idées, fais signe...
J'en cherche plus trop, mais si tu en as besoin, faut pas hésiter.
Bonne semaine.
-- A+
Geo
Bonjour
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Quel résultat souhaites-tu ? On met systématiquement tous les objets en visible ? On s'arrête sur le premier objet invisible rencontré ? On fait une autre présentation avec uniquement les objets invisibles, mais rendus visibles ? Tu suis toujours ? On fait un document Word recensant les objets invisibles ? ... autres idées ?
-- A+
Bonjour
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles
(ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet
visualisation, que toutes les cases sont bien cochées ?).
Quel résultat souhaites-tu ?
On met systématiquement tous les objets en visible ?
On s'arrête sur le premier objet invisible rencontré ?
On fait une autre présentation avec uniquement les objets invisibles,
mais rendus visibles ? Tu suis toujours ?
On fait un document Word recensant les objets invisibles ?
... autres idées ?
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Quel résultat souhaites-tu ? On met systématiquement tous les objets en visible ? On s'arrête sur le premier objet invisible rencontré ? On fait une autre présentation avec uniquement les objets invisibles, mais rendus visibles ? Tu suis toujours ? On fait un document Word recensant les objets invisibles ? ... autres idées ?
-- A+
Geo
Re
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
J'ai programmé la solution avec Word, c'est ce que je trouve le plus pratique. http://cjoint.com/?jvrp40FrOc
Penser à référencer Word, indication donnée en commentaire.
-- A+
Re
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
J'ai programmé la solution avec Word, c'est ce que je trouve le plus
pratique.
http://cjoint.com/?jvrp40FrOc
Penser à référencer Word, indication donnée en commentaire.
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
J'ai programmé la solution avec Word, c'est ce que je trouve le plus pratique. http://cjoint.com/?jvrp40FrOc
Penser à référencer Word, indication donnée en commentaire.
-- A+
AB
Bonsoir Geo. En effet, ma question n'était pas assez claire. Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à cocher toutes les cases qui seraient décochées. Ce qui signifie qu'en effet, on met systématiquement tous les objets en visible. André
"Geo" a écrit dans le message de news:
Bonjour
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Quel résultat souhaites-tu ? On met systématiquement tous les objets en visible ? On s'arrête sur le premier objet invisible rencontré ? On fait une autre présentation avec uniquement les objets invisibles, mais rendus visibles ? Tu suis toujours ? On fait un document Word recensant les objets invisibles ? ... autres idées ?
-- A+
Bonsoir Geo.
En effet, ma question n'était pas assez claire.
Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à
cocher toutes les cases qui seraient décochées.
Ce qui signifie qu'en effet, on met systématiquement tous les objets en
visible.
André
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.abf17d9920c96cc3.41568@sans.pub...
Bonjour
- Comment faire pour vérifier que dans toutes les diapos, tous les objets
sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la
main, dans le volet visualisation, que toutes les cases sont bien cochées
?).
Quel résultat souhaites-tu ?
On met systématiquement tous les objets en visible ?
On s'arrête sur le premier objet invisible rencontré ?
On fait une autre présentation avec uniquement les objets invisibles, mais
rendus visibles ? Tu suis toujours ?
On fait un document Word recensant les objets invisibles ?
... autres idées ?
Bonsoir Geo. En effet, ma question n'était pas assez claire. Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à cocher toutes les cases qui seraient décochées. Ce qui signifie qu'en effet, on met systématiquement tous les objets en visible. André
"Geo" a écrit dans le message de news:
Bonjour
- Comment faire pour vérifier que dans toutes les diapos, tous les objets sont visibles (ie : comment éviter de vérifier dans chaque diapo, à la main, dans le volet visualisation, que toutes les cases sont bien cochées ?).
Quel résultat souhaites-tu ? On met systématiquement tous les objets en visible ? On s'arrête sur le premier objet invisible rencontré ? On fait une autre présentation avec uniquement les objets invisibles, mais rendus visibles ? Tu suis toujours ? On fait un document Word recensant les objets invisibles ? ... autres idées ?
-- A+
Geo
Bonjour
Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à cocher toutes les cases qui seraient décochées. Ce qui signifie qu'en effet, on met systématiquement tous les objets en visible.
D'accord, je te fais ça, c'est encore plus simple.
-- A+
Bonjour
Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à
cocher toutes les cases qui seraient décochées.
Ce qui signifie qu'en effet, on met systématiquement tous les objets en
visible.
D'accord, je te fais ça, c'est encore plus simple.
Je cherche à balayer toutes les diapos, et, dans le volet visualisation, à cocher toutes les cases qui seraient décochées. Ce qui signifie qu'en effet, on met systématiquement tous les objets en visible.
D'accord, je te fais ça, c'est encore plus simple.
-- A+
Geo
Re
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Voici la version luxe avec comptage. Bonne soirée
Option Explicit Sub ToutAfficher() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes If Obj.Visible = msoFalse Then nb = nb + 1 Obj.Visible = msoTrue End If Next Obj Next Diapo If nb = 0 Then MsgBox "Terminé sans changements", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets rendus visibles : " & nb, vbOKOnly, Pr.Name End If End Sub
-- A+
Re
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Voici la version luxe avec comptage.
Bonne soirée
Option Explicit
Sub ToutAfficher()
Dim nb As Integer
Dim Pr As Presentation
Dim Diapo As Slide
Dim Obj As Shape
Set Pr = ActivePresentation
Debug.Print Pr.Name
nb = 0
For Each Diapo In Pr.Slides
Debug.Print Diapo.SlideIndex
For Each Obj In Diapo.Shapes
If Obj.Visible = msoFalse Then
nb = nb + 1
Obj.Visible = msoTrue
End If
Next Obj
Next Diapo
If nb = 0 Then
MsgBox "Terminé sans changements", vbOKOnly, Pr.Name
Else
MsgBox "Nombre d'objets rendus visibles : " & nb, vbOKOnly, Pr.Name
End If
End Sub
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Voici la version luxe avec comptage. Bonne soirée
Option Explicit Sub ToutAfficher() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes If Obj.Visible = msoFalse Then nb = nb + 1 Obj.Visible = msoTrue End If Next Obj Next Diapo If nb = 0 Then MsgBox "Terminé sans changements", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets rendus visibles : " & nb, vbOKOnly, Pr.Name End If End Sub
-- A+
Geo
Bonjour
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux qu'on n'aide pas, voici une macro qui ombre certains éléments. Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux photos sur une présentation peuvent être de types différents et ça ne se voit pas à l'oeil. Il reste donc quelques cases à remplir, j'ai juste codé pour deux types d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes Select Case Obj.Type Case msoAutoShape Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 3 nb = nb + 1 Case msoPlaceholder Case msoScriptAnchor Case msoShapeTypeMixed
Case Else End Select
Next Obj Next Diapo
If nb = 0 Then MsgBox "Aucun changement", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name End If
End Sub
-- A+
Bonjour
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux
qu'on n'aide pas, voici une macro qui ombre certains éléments.
Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux
photos sur une présentation peuvent être de types différents et ça ne
se voit pas à l'oeil.
Il reste donc quelques cases à remplir, j'ai juste codé pour deux types
d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages()
Dim nb As Integer
Dim Pr As Presentation
Dim Diapo As Slide
Dim Obj As Shape
Set Pr = ActivePresentation
Debug.Print Pr.Name
nb = 0
For Each Diapo In Pr.Slides
Debug.Print Diapo.SlideIndex
For Each Obj In Diapo.Shapes
Select Case Obj.Type
Case msoAutoShape
Obj.Shadow.Type = msoShadow17
Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128)
Obj.Shadow.OffsetX = 3
Obj.Shadow.OffsetY = 2
Obj.ThreeD.ContourWidth = 5
nb = nb + 1
Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture
Obj.Shadow.Type = msoShadow17
Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127)
Obj.Shadow.OffsetX = 3
Obj.Shadow.OffsetY = 2
Obj.ThreeD.ContourWidth = 3
nb = nb + 1
Case msoPlaceholder
Case msoScriptAnchor
Case msoShapeTypeMixed
Case Else
End Select
Next Obj
Next Diapo
If nb = 0 Then
MsgBox "Aucun changement", vbOKOnly, Pr.Name
Else
MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name
End If
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux qu'on n'aide pas, voici une macro qui ombre certains éléments. Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux photos sur une présentation peuvent être de types différents et ça ne se voit pas à l'oeil. Il reste donc quelques cases à remplir, j'ai juste codé pour deux types d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes Select Case Obj.Type Case msoAutoShape Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 3 nb = nb + 1 Case msoPlaceholder Case msoScriptAnchor Case msoShapeTypeMixed
Case Else End Select
Next Obj Next Diapo
If nb = 0 Then MsgBox "Aucun changement", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name End If
End Sub
-- A+
amiga17
Geo a formulé ce mardi :
Bonjour
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux qu'on n'aide pas, voici une macro qui ombre certains éléments. Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux photos sur une présentation peuvent être de types différents et ça ne se voit pas à l'oeil. Il reste donc quelques cases à remplir, j'ai juste codé pour deux types d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes Select Case Obj.Type Case msoAutoShape Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 3 nb = nb + 1 Case msoPlaceholder Case msoScriptAnchor Case msoShapeTypeMixed
Case Else End Select
Next Obj Next Diapo
If nb = 0 Then MsgBox "Aucun changement", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name End If
End Sub
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Bonne fin de journée.
-- Amiga17
Geo a formulé ce mardi :
Bonjour
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux qu'on
n'aide pas, voici une macro qui ombre certains éléments.
Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux
photos sur une présentation peuvent être de types différents et ça ne se voit
pas à l'oeil.
Il reste donc quelques cases à remplir, j'ai juste codé pour deux types
d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages()
Dim nb As Integer
Dim Pr As Presentation
Dim Diapo As Slide
Dim Obj As Shape
Set Pr = ActivePresentation
Debug.Print Pr.Name
nb = 0
For Each Diapo In Pr.Slides
Debug.Print Diapo.SlideIndex
For Each Obj In Diapo.Shapes
Select Case Obj.Type
Case msoAutoShape
Obj.Shadow.Type = msoShadow17
Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128)
Obj.Shadow.OffsetX = 3
Obj.Shadow.OffsetY = 2
Obj.ThreeD.ContourWidth = 5
nb = nb + 1
Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture
Obj.Shadow.Type = msoShadow17
Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127)
Obj.Shadow.OffsetX = 3
Obj.Shadow.OffsetY = 2
Obj.ThreeD.ContourWidth = 3
nb = nb + 1
Case msoPlaceholder
Case msoScriptAnchor
Case msoShapeTypeMixed
Case Else
End Select
Next Obj
Next Diapo
If nb = 0 Then
MsgBox "Aucun changement", vbOKOnly, Pr.Name
Else
MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name
End If
End Sub
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je
n'y connais rien en VBA, j'ai au moins un base de lancement...
[Réponse faite sur le forum public PowerPoint : news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Pour que vous ne pensiez pas qu'il y a les gens qu'on aide et ceux qu'on n'aide pas, voici une macro qui ombre certains éléments. Ce n'est pas si simple que ça à penser car il y a de nombreux cas, deux photos sur une présentation peuvent être de types différents et ça ne se voit pas à l'oeil. Il reste donc quelques cases à remplir, j'ai juste codé pour deux types d'objets, à titre d'exemple.
Bonne journée
Sub OmbrerImages() Dim nb As Integer Dim Pr As Presentation Dim Diapo As Slide Dim Obj As Shape Set Pr = ActivePresentation Debug.Print Pr.Name nb = 0 For Each Diapo In Pr.Slides Debug.Print Diapo.SlideIndex For Each Obj In Diapo.Shapes Select Case Obj.Type Case msoAutoShape Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(0, 0, 128) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 Case msoCallout
Case msoCanvas
Case msoChart
Case msoComment
Case msoDiagram
Case msoEmbeddedOLEObject
Case msoFormControl
Case msoFreeform
Case msoGroup
Case msoLine
Case msoLinkedOLEObject
Case msoLinkedPicture
Case msoMedia
Case msoOLEControlObject
Case msoPicture Obj.Shadow.Type = msoShadow17 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 3 nb = nb + 1 Case msoPlaceholder Case msoScriptAnchor Case msoShapeTypeMixed
Case Else End Select
Next Obj Next Diapo
If nb = 0 Then MsgBox "Aucun changement", vbOKOnly, Pr.Name Else MsgBox "Nombre d'objets traités : " & nb, vbOKOnly, Pr.Name End If
End Sub
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Bonne fin de journée.
-- Amiga17
Geo
Bonjour
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer sont d'un des deux types traités et tout ce qui est de ces types est à ombrer On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si elles se nomment toujours et elles seules "Image xxx". Sinon il faut combiner plusieurs critères. Ça dépend entièrement de vos présentations. C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
-- A+
Bonjour
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y
connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer
sont d'un des deux types traités et tout ce qui est de ces types est à
ombrer
On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si
elles se nomment toujours et elles seules "Image xxx".
Sinon il faut combiner plusieurs critères.
Ça dépend entièrement de vos présentations.
C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer sont d'un des deux types traités et tout ce qui est de ces types est à ombrer On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si elles se nomment toujours et elles seules "Image xxx". Sinon il faut combiner plusieurs critères. Ça dépend entièrement de vos présentations. C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
-- A+
Jean-Pierre Forestier [MVP[
Elle est moins créative que la tienne, mais très simple à mettre en oeuvre ! Y' même une macro qui a été faite sur le même style que le pinceau de recopie et qui permet de recopier des animations d'un objet sur un autre ! "Geo" a écrit dans le message de news:
Bonjour
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer sont d'un des deux types traités et tout ce qui est de ces types est à ombrer On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si elles se nomment toujours et elles seules "Image xxx". Sinon il faut combiner plusieurs critères. Ça dépend entièrement de vos présentations. C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
-- A+
Elle est moins créative que la tienne, mais très simple à mettre en oeuvre !
Y' même une macro qui a été faite sur le même style que le pinceau de
recopie et qui permet de recopier des animations d'un objet sur un autre !
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.b3d07d990514e8c9.41568@sans.pub...
Bonjour
merci, c'est déjà un début et je peux aussi faire ma part de travail.
Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer sont
d'un des deux types traités et tout ce qui est de ces types est à ombrer
On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si
elles se nomment toujours et elles seules "Image xxx".
Sinon il faut combiner plusieurs critères.
Ça dépend entièrement de vos présentations.
C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
Elle est moins créative que la tienne, mais très simple à mettre en oeuvre ! Y' même une macro qui a été faite sur le même style que le pinceau de recopie et qui permet de recopier des animations d'un objet sur un autre ! "Geo" a écrit dans le message de news:
Bonjour
merci, c'est déjà un début et je peux aussi faire ma part de travail. Comme je n'y connais rien en VBA, j'ai au moins un base de lancement...
Cette macro est basée sur le postulat que toutes les images à ombrer sont d'un des deux types traités et tout ce qui est de ces types est à ombrer On peut aussi filtrer vos images sur leur nom (obj.Name) par exemple si elles se nomment toujours et elles seules "Image xxx". Sinon il faut combiner plusieurs critères. Ça dépend entièrement de vos présentations. C'est pour cela que la solution de Jean-Pierre me parait raisonnable.
