Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
1087273A-54B2-40D5-A539-8D895084AD1D@microsoft.com...
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage > "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage > "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
1087273A-54B2-40D5-A539-8D895084AD1D@microsoft.com...
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage > "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:6EF05BE5-C874-45C8-9CDF-EE45B1A341F7@microsoft.com...
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
1087273A-54B2-40D5-A539-8D895084AD1D@microsoft.com...
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Feuil2 = Nom de la feuille où sera insérée la feuille
Activesheet.Name -> retourne le nom de la feuille active
Range("b5:D6") -> l'image couvrira l'étendue de la plage mentionnée
"C:WinntPlume.bmp" -> chemin & nom de l'image
'----------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'----------------------------
Sub InsérerImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Image = Worksheets(Feuille).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
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage >> "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Feuil2 = Nom de la feuille où sera insérée la feuille
Activesheet.Name -> retourne le nom de la feuille active
Range("b5:D6") -> l'image couvrira l'étendue de la plage mentionnée
"C:WinntPlume.bmp" -> chemin & nom de l'image
'----------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'----------------------------
Sub InsérerImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Image = Worksheets(Feuille).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
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
AB213FC6-9410-4318-BD32-BBC0D3B048F7@microsoft.com...
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:6EF05BE5-C874-45C8-9CDF-EE45B1A341F7@microsoft.com...
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage >> "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
1087273A-54B2-40D5-A539-8D895084AD1D@microsoft.com...
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Feuil2 = Nom de la feuille où sera insérée la feuille
Activesheet.Name -> retourne le nom de la feuille active
Range("b5:D6") -> l'image couvrira l'étendue de la plage mentionnée
"C:WinntPlume.bmp" -> chemin & nom de l'image
'----------------------------
Sub TestMonImage()
InsérerImage "Feuil2", Range("b5:D6"), "C:WinntPlume.bmp"
End Sub
'----------------------------
Sub InsérerImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Image = Worksheets(Feuille).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
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne
courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage >> "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur laquelle
se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
A la place de : Sh = Worksheets("NomDeTAFeuille") 'à définir
peut être : Sh = ActiveSheet
LE TROLL a écrit :Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur
laquelle se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
A la place de : Sh = Worksheets("NomDeTAFeuille") 'à définir
peut être : Sh = ActiveSheet
LE TROLL a écrit :
Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:6EF05BE5-C874-45C8-9CDF-EE45B1A341F7@microsoft.com...
Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion :
1087273A-54B2-40D5-A539-8D895084AD1D@microsoft.com...
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur
laquelle se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
A la place de : Sh = Worksheets("NomDeTAFeuille") 'à définir
peut être : Sh = ActiveSheet
LE TROLL a écrit :Merci, mais le nom de la feuille je ne le connais pas, c'est la
feuille courante quand est appelé la macro par son bouton !
Tu as le nom de la procédure et l'adresse du fichier, donc avec ceci
j'aimerais :
Que quand on j'appuie sur mon bouton de macro, ma signature "resizable"
vienne s'afficher dans la feuille active, au environs du milieu de la
ligne courante du curseur, point.
Peux-tu me faire ça, merci :o)
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"michdenis" a écrit dans le message de
news:Tu dois définir le nom de la feuille :
'-------------------------------
Sub signePusztay()
Dim MonImage As String, Sh As Worksheet
'Variable à définir
MonImage =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
Sh = Worksheets("NomDeTAFeuille") 'à définir
'Les dimensions selon ton choix
With Sh
With .Pictures.Insert(NomImage)
.Left = 200
.Top = Sh.ActiveCell.Top
.Width = 50
.Height = 65
End With
End With
End Sub
'-------------------------------
"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,
Dans cette formule :
Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub
Comment lui indiquer de mettre l'image à hauteur de la ligne sur
laquelle se
trouve le curseur (ligne courante) , peut-on m'écrire ce qu'il manque
pour
que ça marche, merci ???
-- Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
| Elle est parfaite, il faut juste la modifier pour qu'elle se positionne
à la
| ligne courante du curseur, juste et seulement, est-ce possible ?
Non, absolument pas. Si tu ne peux l'adapter, il faudra que tu vives avec.
Ici, c'est lieu d'entraide... le moins que l'on puisse demander au
requérant
c'est un "minimum" de participation !
| Elle est parfaite, il faut juste la modifier pour qu'elle se positionne
à la
| ligne courante du curseur, juste et seulement, est-ce possible ?
Non, absolument pas. Si tu ne peux l'adapter, il faudra que tu vives avec.
Ici, c'est lieu d'entraide... le moins que l'on puisse demander au
requérant
c'est un "minimum" de participation !
| Elle est parfaite, il faut juste la modifier pour qu'elle se positionne
à la
| ligne courante du curseur, juste et seulement, est-ce possible ?
Non, absolument pas. Si tu ne peux l'adapter, il faudra que tu vives avec.
Ici, c'est lieu d'entraide... le moins que l'on puisse demander au
requérant
c'est un "minimum" de participation !