Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
#OB5wKzdJHA.3864@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
07663FB2-7B95-463C-90EE-D46E9B004C99@microsoft.com...
Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
#OB5wKzdJHA.3864@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
07663FB2-7B95-463C-90EE-D46E9B004C99@microsoft.com...
Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
#OB5wKzdJHA.3864@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Tu copies les 2 procédures dans un module standard
En principe tu lances la procédure : "TestMonImage"
En réalité, tu peux insérer dans n'importe quelle procédure
de ton choix la ligne de code suivante et elle insérera à
l'endroit désigné l'image de toi choix. Intégrer l'exécution
de cette procédure dans une procédure plus générale était
l'un des objectifs visés
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp
Si tu dois insérer plus d'une image, tu dois répéter la ligne de
code pour chacune d'elle.
"plex" a écrit dans le message de groupe de
discussion :
uLRla#
Je comprends la première procédure mais je n'ai pas le choix de l'image.
Je ne comprends pas la deuxième procédure.
Pourrais tu me donner plus de détails sur sa mise en oeuvre, sachant que
ce
ne sont jamais les mêmes photos, ensuite est ce que je dois lancer une
macro
pour lancer cette procédure ?
Merci pour ton aide
"plex" a écrit dans le message de news:Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et
je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Tu copies les 2 procédures dans un module standard
En principe tu lances la procédure : "TestMonImage"
En réalité, tu peux insérer dans n'importe quelle procédure
de ton choix la ligne de code suivante et elle insérera à
l'endroit désigné l'image de toi choix. Intégrer l'exécution
de cette procédure dans une procédure plus générale était
l'un des objectifs visés
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp
Si tu dois insérer plus d'une image, tu dois répéter la ligne de
code pour chacune d'elle.
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
uLRla#IeJHA.5420@TK2MSFTNGP02.phx.gbl...
Je comprends la première procédure mais je n'ai pas le choix de l'image.
Je ne comprends pas la deuxième procédure.
Pourrais tu me donner plus de détails sur sa mise en oeuvre, sachant que
ce
ne sont jamais les mêmes photos, ensuite est ce que je dois lancer une
macro
pour lancer cette procédure ?
Merci pour ton aide
"plex" <nospam@cegetel.net> a écrit dans le message de news:
Oo8U05IeJHA.3968@TK2MSFTNGP06.phx.gbl...
Je vais essayer.
Je te remercie pour ta réponse
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
07663FB2-7B95-463C-90EE-D46E9B004C99@microsoft.com...
Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" <nospam@cegetel.net> a écrit dans le message de groupe de
discussion :
#OB5wKzdJHA.3864@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et
je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--
Tu copies les 2 procédures dans un module standard
En principe tu lances la procédure : "TestMonImage"
En réalité, tu peux insérer dans n'importe quelle procédure
de ton choix la ligne de code suivante et elle insérera à
l'endroit désigné l'image de toi choix. Intégrer l'exécution
de cette procédure dans une procédure plus générale était
l'un des objectifs visés
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp
Si tu dois insérer plus d'une image, tu dois répéter la ligne de
code pour chacune d'elle.
"plex" a écrit dans le message de groupe de
discussion :
uLRla#
Je comprends la première procédure mais je n'ai pas le choix de l'image.
Je ne comprends pas la deuxième procédure.
Pourrais tu me donner plus de détails sur sa mise en oeuvre, sachant que
ce
ne sont jamais les mêmes photos, ensuite est ce que je dois lancer une
macro
pour lancer cette procédure ?
Merci pour ton aide
"plex" a écrit dans le message de news:Je vais essayer.
Je te remercie pour ta réponse
"michdenis" a écrit dans le message de news:Pour insérer une image sur l'étendue de cellules de ton choix :
Tu exécutes la procédure TestMonImage en renseignant les
paramètres selon tes données.
'--------------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'--------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'--------------------------------
"plex" a écrit dans le message de groupe de
discussion :
#
Bonjour à tous,
J'ai une feuille excel comprenant un petit graphique, 2 zones texte et
je
cherche a faciliter l'insertion de 4 photos au format qui va bien à
droite
de la feuille A4 en paysage.
La difficulté est qu'a chaque fois que j'insert une photo il faut la
redimensionner et la placer et ceci toutes les semaines.
Peut être qu'il y a un soft qui fait tout plus facilement.
Avez vous une idée simple ?
Merci pour la réponse
--