Bonjour,
Est-il possible de créer une macro qui permette de coller
automatiquement une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
Bonjour,
Est-il possible de créer une macro qui permette de coller
automatiquement une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
Bonjour,
Est-il possible de créer une macro qui permette de coller
automatiquement une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
bonjour Greg,
With ActiveSheet.Pictures.Insert("C:Mes imagesMonImage.gif")
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
isabelle
Greg a écrit :Bonjour,
Est-il possible de créer une macro qui permette de coller automatiquement
une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
bonjour Greg,
With ActiveSheet.Pictures.Insert("C:Mes imagesMonImage.gif")
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
isabelle
Greg a écrit :
Bonjour,
Est-il possible de créer une macro qui permette de coller automatiquement
une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
bonjour Greg,
With ActiveSheet.Pictures.Insert("C:Mes imagesMonImage.gif")
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
isabelle
Greg a écrit :Bonjour,
Est-il possible de créer une macro qui permette de coller automatiquement
une image du presse papier à des dimensions précises:
http://cjoint.com/?lCoNgOceS5
Je souhaite coller en A6, ou dans une fenêtre aux mêmes dimensions, un
document qui conserverait ses proportions et exploiterait toute la
largeur ou toute la hauteur (selon le document).
Pouvez-vous m'aider?
Merci
Greg
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse à
des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse à
des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:1ffb6186-1c92-4040-92d9-a30215fce335@r24g2000yqd.googlegroups.com...
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse à
des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :Re!
Juste une dernière chose: peut-on créer une macro qui indique le chemin
par défaut qu'il faut emprunter pour ouvrir le dossier dans lequel se
trouve les images? Si possible, je souhaite qu'il soit possible de le
faire sans rentrer dans le code (ce fichier s'adresse à des débutants,
simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :
Re!
Juste une dernière chose: peut-on créer une macro qui indique le chemin
par défaut qu'il faut emprunter pour ouvrir le dossier dans lequel se
trouve les images? Si possible, je souhaite qu'il soit possible de le
faire sans rentrer dans le code (ce fichier s'adresse à des débutants,
simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:1ffb6186-1c92-4040-92d9-a30215fce335@r24g2000yqd.googlegroups.com...
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :Re!
Juste une dernière chose: peut-on créer une macro qui indique le chemin
par défaut qu'il faut emprunter pour ouvrir le dossier dans lequel se
trouve les images? Si possible, je souhaite qu'il soit possible de le
faire sans rentrer dans le code (ce fichier s'adresse à des débutants,
simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Merci Isabelle,
Je me suis certainment mal expliqué sur ce que j'attendais.
Dans le code que tu proposes, il faut rentrer le chemin dans le code.
Personnellement, je souhaitais que ce chemin puisse être défini par
défaut par l'utilisateur.
Macro 1 (à partir du fichier sélectionné dans un répertoire, la macro
colle en lieu et place aux bonnes dimensions): celle qui fait le
boulot. CA, c'est OK, impec, nickel!
Macro 2: celle qui indique à la macro 1 le chemin par défaut. Bref,
une sorte de macro, qui agit sur une autre.
Je ne suis peut-être toujours pas clair.... :-o(
"isabelle" a écrit dans le message de
news:bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse
à des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Merci Isabelle,
Je me suis certainment mal expliqué sur ce que j'attendais.
Dans le code que tu proposes, il faut rentrer le chemin dans le code.
Personnellement, je souhaitais que ce chemin puisse être défini par
défaut par l'utilisateur.
Macro 1 (à partir du fichier sélectionné dans un répertoire, la macro
colle en lieu et place aux bonnes dimensions): celle qui fait le
boulot. CA, c'est OK, impec, nickel!
Macro 2: celle qui indique à la macro 1 le chemin par défaut. Bref,
une sorte de macro, qui agit sur une autre.
Je ne suis peut-être toujours pas clair.... :-o(
"isabelle" <i@v> a écrit dans le message de
news:uPUzVV2cKHA.1028@TK2MSFTNGP06.phx.gbl...
bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :
Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse
à des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:1ffb6186-1c92-4040-92d9-a30215fce335@r24g2000yqd.googlegroups.com...
Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.
Merci Isabelle,
Je me suis certainment mal expliqué sur ce que j'attendais.
Dans le code que tu proposes, il faut rentrer le chemin dans le code.
Personnellement, je souhaitais que ce chemin puisse être défini par
défaut par l'utilisateur.
Macro 1 (à partir du fichier sélectionné dans un répertoire, la macro
colle en lieu et place aux bonnes dimensions): celle qui fait le
boulot. CA, c'est OK, impec, nickel!
Macro 2: celle qui indique à la macro 1 le chemin par défaut. Bref,
une sorte de macro, qui agit sur une autre.
Je ne suis peut-être toujours pas clair.... :-o(
"isabelle" a écrit dans le message de
news:bonjour Greg,
oui avec ChDir,
Sub Macro1()
ChDir "C:zaza"
monFichier =
Application.GetOpenFilename("Fichierimage,*.bmp;*.jpg;*.jpeg", ,
"Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
isabelle
Greg a écrit :Re!
Juste une dernière chose: peut-on créer une macro qui indique le
chemin par défaut qu'il faut emprunter pour ouvrir le dossier dans
lequel se trouve les images? Si possible, je souhaite qu'il soit
possible de le faire sans rentrer dans le code (ce fichier s'adresse
à des débutants, simples utilisateurs d'excel)...
Merci
Greg
"FdeCourt" a écrit dans le message de
news:Salut,
Avec l'instruction :
Application.GetOpenFilename(, , , , True) :
Sub Macro2()
monFichier = Application.GetOpenFilename("Fichier
image,*.bmp;*.jpg;*.jpeg", , "Choisissez votre fichier", , False)
With ActiveSheet.Pictures.Insert(monFichier)
.Placement = xlFreeFloating
.PrintObject = True
.Locked = False
With .ShapeRange
.LockAspectRatio = msoFalse
.Top = Range("A6:C7").Top
.Left = Range("A6:C7").Left
.Width = Range("A6:C7").Width
.Height = Range("A6:C7").Height
End With
End With
End Sub
Cordialement,
F.