Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" <Geo@sans.pub> a écrit dans le message de groupe de discussion :
mn.45657d836b709b07.41568@sans.pub...
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" <Geo@sans.pub> a écrit dans le message de groupe de discussion :
mn.45657d836b709b07.41568@sans.pub...
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
J'ai un classeur Excel [...](je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison d'une
slide mais pas d'un objet de la slide
J'ai un classeur Excel [...]
(je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison d'une
slide mais pas d'un objet de la slide
J'ai un classeur Excel [...](je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison d'une
slide mais pas d'un objet de la slide
Ceci dit, recopier les données dans les diapositives, sans liaison, a
/aussi ses avantages.
J'ai un classeur Excel [...](je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte
des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison
d'une
slide mais pas d'un objet de la slide
Ceci dit, recopier les données dans les diapositives, sans liaison, a
/aussi ses avantages.
J'ai un classeur Excel [...]
(je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte
des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison
d'une
slide mais pas d'un objet de la slide
Ceci dit, recopier les données dans les diapositives, sans liaison, a
/aussi ses avantages.
J'ai un classeur Excel [...](je voudrais en fait pourvoir les conserver en slides masquées [si ça
existe] qui ne seraient alors ni imprimées ni incluses dans le décompte
des
pages)
En fait la liste des sociétés [...] de résultat.
Pour ma 2ème question ici "Identifier les shapes d'une slide" je n'arrive
pas à gérer 2 liaisons Excel dans la même slide. Je modifie la liaison
d'une
slide mais pas d'un objet de la slide
Merci pour le code
Faudrait ajouter une gestion d'erreur, non?, au cas où on oublie de
sélectionner un objet
merci pour le tuyau sur l'outil "Sélectionner plusieurs objets"!
"Nikita" a écrit dans le message de groupe de
discussion : 47d3898f$0$882$
Salut,
pour connaître le noms des objets sur une diapo :
dans ta barre de dessin, tu peux ajouter l'outil Sélectionner plusieurs
objets. Il donne la liste des objets de la diapo active.
Va dans Affichage, Barre d'outils, Personnaliser. Dans l'onglet
Commandes, Dessin, amène l'outil Sélectionner plusieurs objets dans ta
barre de dessin.
Et pour renommer un objet, j'utilise ce bout de code :
Sub RenommerObjet()
strNvNom = InputBox("Taper l'alias")
With ActiveWindow.Selection.ShapeRange
.Name = strNvNom
End With
End Sub
Sinon, remplace ta version par la 2007 dans laquelle les noms d'objets
sont immédiatement identifiables et renommables sans VBA.
NikiMerci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci pour le code
Faudrait ajouter une gestion d'erreur, non?, au cas où on oublie de
sélectionner un objet
merci pour le tuyau sur l'outil "Sélectionner plusieurs objets"!
"Nikita" <nikita.strav@pasyahoo.fr> a écrit dans le message de groupe de
discussion : 47d3898f$0$882$ba4acef3@news.orange.fr...
Salut,
pour connaître le noms des objets sur une diapo :
dans ta barre de dessin, tu peux ajouter l'outil Sélectionner plusieurs
objets. Il donne la liste des objets de la diapo active.
Va dans Affichage, Barre d'outils, Personnaliser. Dans l'onglet
Commandes, Dessin, amène l'outil Sélectionner plusieurs objets dans ta
barre de dessin.
Et pour renommer un objet, j'utilise ce bout de code :
Sub RenommerObjet()
strNvNom = InputBox("Taper l'alias")
With ActiveWindow.Selection.ShapeRange
.Name = strNvNom
End With
End Sub
Sinon, remplace ta version par la 2007 dans laquelle les noms d'objets
sont immédiatement identifiables et renommables sans VBA.
Niki
Merci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" <Geo@sans.pub> a écrit dans le message de groupe de discussion :
mn.45657d836b709b07.41568@sans.pub...
Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub
Merci pour le code
Faudrait ajouter une gestion d'erreur, non?, au cas où on oublie de
sélectionner un objet
merci pour le tuyau sur l'outil "Sélectionner plusieurs objets"!
"Nikita" a écrit dans le message de groupe de
discussion : 47d3898f$0$882$
Salut,
pour connaître le noms des objets sur une diapo :
dans ta barre de dessin, tu peux ajouter l'outil Sélectionner plusieurs
objets. Il donne la liste des objets de la diapo active.
Va dans Affichage, Barre d'outils, Personnaliser. Dans l'onglet
Commandes, Dessin, amène l'outil Sélectionner plusieurs objets dans ta
barre de dessin.
Et pour renommer un objet, j'utilise ce bout de code :
Sub RenommerObjet()
strNvNom = InputBox("Taper l'alias")
With ActiveWindow.Selection.ShapeRange
.Name = strNvNom
End With
End Sub
Sinon, remplace ta version par la 2007 dans laquelle les noms d'objets
sont immédiatement identifiables et renommables sans VBA.
NikiMerci mais comment savoir à quelles shapes d'une slide les noms
correspondent?
"Geo" a écrit dans le message de groupe de discussion :Bonsoir,
Comment connaître le nom de shapes existants dans une slide?
Est-ce possible manuellement en sélectionnant la shape à la souris? Et
par
VBA? Comment connaître le nombre et la liste des shapes d'une slide avec
leurs noms?
Par exemple :
Option Explicit
Sub ListerShapes()
Dim Diapo As Slide
Dim Message As String
Dim S As Shape
Message = "Liste des Shapes" & vbCr
With ActivePresentation
For Each Diapo In .Slides
Message = Message & "Diapo numéro : " & Diapo.SlideNumber & vbCr
For Each S In Diapo.Shapes
Message = Message & "Shape : " & S.Name & vbCr
Next
Next Diapo
End With
MsgBox Message
End Sub