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.
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.
C'est, dans un premier temps du moins, pour des séries d'images de même type (et de même dimensions). Je peux les renommer comme vous le suggérez, ça ce n'est pas un problème j'ai ce qu'il faut pour le faire en automatique et un seul clic ce n'est donc pas un frein. J'ai donc au moins, comme je le disais, un base à étudier et c'est déjà une bonne chose, merci...
-- Amiga17
Geo a présenté l'énoncé suivant :
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.
C'est, dans un premier temps du moins, pour des séries d'images de même type
(et de même dimensions). Je peux les renommer comme vous le suggérez, ça ce
n'est pas un problème j'ai ce qu'il faut pour le faire en automatique et un
seul clic ce n'est donc pas un frein.
J'ai donc au moins, comme je le disais, un base à étudier et c'est déjà une
bonne chose, merci...
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.
C'est, dans un premier temps du moins, pour des séries d'images de même type (et de même dimensions). Je peux les renommer comme vous le suggérez, ça ce n'est pas un problème j'ai ce qu'il faut pour le faire en automatique et un seul clic ce n'est donc pas un frein. J'ai donc au moins, comme je le disais, un base à étudier et c'est déjà une bonne chose, merci...
-- Amiga17
amiga17
Jean-Pierre Forestier [MVP[ avait soumis l'idée :
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+
j'ai retenu votre solution comme une solution adéquat tant que les images seront relativement nombreuses. Si un jour elles augmentent de façon significative cela pourrait redevenir fastidieux et dans ce cas la macro deviendra peut-être indispensable, c'est l'avenir qui le dira...
Merci encore.
-- Amiga17
Jean-Pierre Forestier [MVP[ avait soumis l'idée :
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.
-- A+
j'ai retenu votre solution comme une solution adéquat tant que les images
seront relativement nombreuses. Si un jour elles augmentent de façon
significative cela pourrait redevenir fastidieux et dans ce cas la macro
deviendra peut-être indispensable, c'est l'avenir qui le dira...
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+
j'ai retenu votre solution comme une solution adéquat tant que les images seront relativement nombreuses. Si un jour elles augmentent de façon significative cela pourrait redevenir fastidieux et dans ce cas la macro deviendra peut-être indispensable, c'est l'avenir qui le dira...
Merci encore.
-- Amiga17
Geo
Bonjour
Je peux les renommer comme vous le suggérez, ça ce n'est pas un problème j'ai ce qu'il faut pour le faire en automatique et un seul clic ce n'est donc pas un frein.
Je parle bien du nom de l'image dans PowerPoint, celui qui apparaît dans le volet "Sélection et visibilité".
Supposons que les photos soient nommées "MesPhotos nnn", on peut simplifier la macro : Sub OmbrerImages2() 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 Left(Obj.Name, 9) = "MesPhotos" Then Obj.Shadow.Type = msoShadow2 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 End If 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
Je peux les renommer comme vous le suggérez, ça ce n'est pas un
problème j'ai ce qu'il faut pour le faire en automatique et un seul clic ce n'est donc
pas un frein.
Je parle bien du nom de l'image dans PowerPoint, celui qui apparaît
dans le volet "Sélection et visibilité".
Supposons que les photos soient nommées "MesPhotos nnn", on peut
simplifier la macro :
Sub OmbrerImages2()
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 Left(Obj.Name, 9) = "MesPhotos" Then
Obj.Shadow.Type = msoShadow2
Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127)
Obj.Shadow.OffsetX = 3
Obj.Shadow.OffsetY = 2
Obj.ThreeD.ContourWidth = 5
nb = nb + 1
End If
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
Je peux les renommer comme vous le suggérez, ça ce n'est pas un problème j'ai ce qu'il faut pour le faire en automatique et un seul clic ce n'est donc pas un frein.
Je parle bien du nom de l'image dans PowerPoint, celui qui apparaît dans le volet "Sélection et visibilité".
Supposons que les photos soient nommées "MesPhotos nnn", on peut simplifier la macro : Sub OmbrerImages2() 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 Left(Obj.Name, 9) = "MesPhotos" Then Obj.Shadow.Type = msoShadow2 Obj.Shadow.ForeColor.RGB = RGB(127, 127, 127) Obj.Shadow.OffsetX = 3 Obj.Shadow.OffsetY = 2 Obj.ThreeD.ContourWidth = 5 nb = nb + 1 End If 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+
Geo
Bonjour
Pourquoi pas en créer d'accessibles...En VBA ?
Voici la réponse de MS : effectivement, ça manque, on transmet aux gestionnaires du modèle objet. En relisant ta suggestion, je me dis que je n'ai peut-être pas bien compris ce que tu voulais dire. Je t'ai répondu sur le fait que les repères définis dans l'interface utilisateur n'existent pas en vba, mais on pourrait effectivement prévoir de mettre des lignes droites en pointillé qui ne serviraient que lors de la mise en page. La difficulté est de reproduire le comportement des repères : affichage ou masquage, mais surtout l'attraction pour faire les alignements. Je ne pense pas que le jeu en vaille la chandelle car un utilisateur va se servir des repères standards avant de s'apercevoir qu'il voudrait les recopier dans une autre présentation et là on ne pourra pas.
-- A+
Bonjour
Pourquoi pas en créer d'accessibles...En VBA ?
Voici la réponse de MS : effectivement, ça manque, on transmet aux
gestionnaires du modèle objet.
En relisant ta suggestion, je me dis que je n'ai peut-être pas bien
compris ce que tu voulais dire.
Je t'ai répondu sur le fait que les repères définis dans l'interface
utilisateur n'existent pas en vba, mais on pourrait effectivement
prévoir de mettre des lignes droites en pointillé qui ne serviraient
que lors de la mise en page.
La difficulté est de reproduire le comportement des repères : affichage
ou masquage, mais surtout l'attraction pour faire les alignements.
Je ne pense pas que le jeu en vaille la chandelle car un utilisateur va
se servir des repères standards avant de s'apercevoir qu'il voudrait
les recopier dans une autre présentation et là on ne pourra pas.
Voici la réponse de MS : effectivement, ça manque, on transmet aux gestionnaires du modèle objet. En relisant ta suggestion, je me dis que je n'ai peut-être pas bien compris ce que tu voulais dire. Je t'ai répondu sur le fait que les repères définis dans l'interface utilisateur n'existent pas en vba, mais on pourrait effectivement prévoir de mettre des lignes droites en pointillé qui ne serviraient que lors de la mise en page. La difficulté est de reproduire le comportement des repères : affichage ou masquage, mais surtout l'attraction pour faire les alignements. Je ne pense pas que le jeu en vaille la chandelle car un utilisateur va se servir des repères standards avant de s'apercevoir qu'il voudrait les recopier dans une autre présentation et là on ne pourra pas.
