Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle
Merci pour ta réponse, qui me fournit enfin une idée car je n'en avais
pas.
Les éléments de ma feuille sont toujours répartis dans un format
paysage, car les lignes sont masquées au-dessous de la 38eme. Par
contre les colonnes vont jusqu'au bout du classeur. Quel serait alors
le pendant de TopLeftCell.Row?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle
Merci pour ta réponse, qui me fournit enfin une idée car je n'en avais
pas.
Les éléments de ma feuille sont toujours répartis dans un format
paysage, car les lignes sont masquées au-dessous de la 38eme. Par
contre les colonnes vont jusqu'au bout du classeur. Quel serait alors
le pendant de TopLeftCell.Row?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle
Merci pour ta réponse, qui me fournit enfin une idée car je n'en avais
pas.
Les éléments de ma feuille sont toujours répartis dans un format
paysage, car les lignes sont masquées au-dessous de la 38eme. Par
contre les colonnes vont jusqu'au bout du classeur. Quel serait alors
le pendant de TopLeftCell.Row?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" a écrit dans le message de groupe de discussion :
##
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" <i@v> a écrit dans le message de groupe de discussion :
##yODSTOKHA.1876@TK2MSFTNGP06.phx.gbl...
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" a écrit dans le message de groupe de discussion :
##
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" a écrit dans le message de groupe de discussion :
##
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" <i@v> a écrit dans le message de groupe de discussion :
##yODSTOKHA.1876@TK2MSFTNGP06.phx.gbl...
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
Bonjour Isabelle,
Avec Excel 2007, la commande Shapes.SelectAll
ne sélectionnes pas "toutes" les shapes
Shapes.SelectAll : Valides pour tout sauf : les contrôles
émanant de la barre d'outils "Contrôle" et "formulaire"
y compris les graphes.
Feuil1.DrawingObjects.Select -> bon pour les contrôles
de la barre d'outils "Formulaires" et "Contrôles" seulement.
"isabelle" a écrit dans le message de groupe de discussion :
##
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas
on ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes
copiés, le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1
et 41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller
dans PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1,
puis celles de la page 2, etc...(pour éviter le trop plein d'objets
dans la première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas on
ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes copiés,
le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et
41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :
Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas on
ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes copiés,
le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" <i@v> a écrit dans le message de
news:%23WSP5iJOKHA.4336@TK2MSFTNGP06.phx.gbl...
bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et
41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :
Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse
difficile de répondre sans savoir quel méthode tu utilise pour faire ton
copier coller,
isabelle
manbas a écrit :Isabelle j'ai le souci suivant:
le code fonctionne dans Excel, pourtant lorsqu'on l'execute pas-à-pas on
ne voit pas la selection des shapes "activée".
Lorsque le code demande le collage (dans powerpoint) des shapes copiés,
le bug survient car il n'y a "rien" de copié.
Quel est ton avis?
"isabelle" a écrit dans le message de
news:%bonjour manbas,
en supposant que tu veuille sélectionner les objets entre la ligne 1 et
41
Sub test1()
For Each obj In ActiveSheet.OLEObjects
If obj.TopLeftCell.Row < 42 Then
ActiveSheet.Shapes.Range(Array(obj.Name)).Select Replace:úlse
Next
End Sub
isabelle
manbas a écrit :Bonjour à tous
Dans une macro je copie les shapes de la feuille pour les coller dans
PowerPoint.
Existe-t'il une solution pour copier d'abord les shapes de page 1, puis
celles de la page 2, etc...(pour éviter le trop plein d'objets dans la
première slide)
ActiveSheet.Shapes.SelectAll
Selection.Copy
Pres.Slides.Add Index:=1, Layout:=ppLayoutBlank
Pres.Slides(1).Shapes.Paste
Merci par avance pour votre réponse