J'ai un traitement qui insère une image dans une feuille de calcul et qui la
rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter
maintenant, c'est la compression de cette image en macro.
Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image",
"Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site
web/ecran" dans la zone "Changement de résolution".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
Bonjour,
L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de
l'enregistreur de macros fournit chez moi ce code :
Sub Macro1()
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
et chez toi ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de
news:C9753E58-5D18-48EA-A7BD-8B734781F036@microsoft.com...
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui
la
rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir
ajouter
maintenant, c'est la compression de cette image en macro.
Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image",
"Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site
web/ecran" dans la zone "Changement de résolution".
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
gtell
Bonjour,
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
Bonjour,
Cela fourni la même chose chez moi.
Cependant, ces éléments correspondent aux informations que l'on peut changer
dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles
présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour,
L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de
l'enregistreur de macros fournit chez moi ce code :
Sub Macro1()
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
et chez toi ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de
news:C9753E58-5D18-48EA-A7BD-8B734781F036@microsoft.com...
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui
la
rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir
ajouter
maintenant, c'est la compression de cette image en macro.
Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image",
"Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site
web/ecran" dans la zone "Changement de résolution".
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
Philippe.R
Re, Peut être existe t il une piste du côté des API de Windows, mais là, je passe la main -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
Re,
Peut être existe t il une piste du côté des API de Windows, mais là, je
passe la main
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de
news:A3B1209D-8377-4CC6-918F-530FA3330EBE@microsoft.com...
Bonjour,
Cela fourni la même chose chez moi.
Cependant, ces éléments correspondent aux informations que l'on peut
changer
dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles
présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des
éléments ;)
"Philippe.R" wrote:
Bonjour,
L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de
l'enregistreur de macros fournit chez moi ce code :
Sub Macro1()
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
et chez toi ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de
news:C9753E58-5D18-48EA-A7BD-8B734781F036@microsoft.com...
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et
qui
la
rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir
ajouter
maintenant, c'est la compression de cette image en macro.
Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image",
"Format de l'image", "Onglet Image", "Bouton compresser" puis
activer"Site
web/ecran" dans la zone "Changement de résolution".
Re, Peut être existe t il une piste du côté des API de Windows, mais là, je passe la main -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
papou
Bonjour Effectivement, à priori il ne semble pas possible d'aller exécuter **directement avec VBA** la compression d'image. Le mieux que j'ai pu trouver c'est ça mais ce n'est pas terrible :-(( Application.CommandBars(71).FindControl(ID:c82).Execute
Quelqu'un d'autre ?
Cordialement Pascal
"gtell" a écrit dans le message de news:
Bonjour,
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
Est-ce possible en macro ?
Merci.
Bonjour
Effectivement, à priori il ne semble pas possible d'aller exécuter
**directement avec VBA** la compression d'image.
Le mieux que j'ai pu trouver c'est ça mais ce n'est pas terrible :-((
Application.CommandBars(71).FindControl(ID:c82).Execute
Quelqu'un d'autre ?
Cordialement
Pascal
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de news:
A3B1209D-8377-4CC6-918F-530FA3330EBE@microsoft.com...
Bonjour,
Cela fourni la même chose chez moi.
Cependant, ces éléments correspondent aux informations que l'on peut
changer
dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles
présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des
éléments ;)
"Philippe.R" wrote:
Bonjour,
L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de
l'enregistreur de macros fournit chez moi ce code :
Sub Macro1()
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub
et chez toi ?
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"gtell" <gtell@discussions.microsoft.com> a écrit dans le message de
news:C9753E58-5D18-48EA-A7BD-8B734781F036@microsoft.com...
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et
qui
la
rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir
ajouter
maintenant, c'est la compression de cette image en macro.
Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image",
"Format de l'image", "Onglet Image", "Bouton compresser" puis
activer"Site
web/ecran" dans la zone "Changement de résolution".
Bonjour Effectivement, à priori il ne semble pas possible d'aller exécuter **directement avec VBA** la compression d'image. Le mieux que j'ai pu trouver c'est ça mais ce n'est pas terrible :-(( Application.CommandBars(71).FindControl(ID:c82).Execute
Quelqu'un d'autre ?
Cordialement Pascal
"gtell" a écrit dans le message de news:
Bonjour,
Cela fourni la même chose chez moi. Cependant, ces éléments correspondent aux informations que l'on peut changer dans la boîte de dialogue quand on est sur "l'onglet image" et pas celles présentées après le clic sur le bouton "Compresser".
Alors, merci pour cette information mais il me manque toujours des éléments ;)
"Philippe.R" wrote:
Bonjour, L'exécution de l'ensemble de ces tâches sous l'oeil vigilant de l'enregistreur de macros fournit chez moi ce code :
Sub Macro1() ActiveSheet.Shapes("Picture 1").Select Selection.ShapeRange.PictureFormat.Brightness = 0.5 Selection.ShapeRange.PictureFormat.Contrast = 0.5 Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# End Sub
et chez toi ? -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "gtell" a écrit dans le message de news:
Bonjour,
J'ai un traitement qui insère une image dans une feuille de calcul et qui la rédimensionne selon des valeurs définies. Ce que je voudrais pouvoir ajouter maintenant, c'est la compression de cette image en macro. Je voudrais en réalité faire l'équivalent de "Clic droit sur l'image", "Format de l'image", "Onglet Image", "Bouton compresser" puis activer"Site web/ecran" dans la zone "Changement de résolution".
