Problème de code dans macro svp ???

Le
LE TROLL
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me le
faire ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #18532211
bonjour,

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin = "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se
positionne à la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien
me le faire ?



Modeste
Le #18532801
Bonsour® isabelle
par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100



arghhh !!!!
tu va finir par énerver Joseph Attila !!!!
tu pourrai au moins tester ta proc ...
tu sais pourtant bien qu'il connait rien à VBA !!!

ActiveDocument n'est pas un mot clé VBA.EXCEL !!!!
;o)))
LE TROLL
Le #18532981
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet est
requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:
bonjour,

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200, ActiveCell.Top,
100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à
la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me
le faire ?





isabelle
Le #18532971
regarde la reponse de modeste, (ActiveDocument) ActiveSheet

isabelle

LE TROLL a écrit :
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet
est requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???




LE TROLL
Le #18533551
Il me faut exactement cette fonctionnalité + (habillage du texte (devant ou
derrière le texte), que je puisse déplacer l'image, sais-tu faire ???

Selection.InlineShapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:
bonjour,

les arguments de AddPicture sont :

/expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
*/SaveWithDocument/*, */Left/*, */Top/*, */Width/*, */Height/*)

par exemple :

chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200, ActiveCell.Top,
100, 100

isabelle



LE TROLL a écrit :
Bonjour,

Cette macro, et seulement cette macro :

Sub signePusztay()
ActiveDocument.Shapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp", _
LinkToFile:=True, SaveWithDocument:=True, Left: 0
End Sub

Elle est parfaite, il faut juste la modifier pour qu'elle se positionne à
la
ligne courante du curseur, juste et seulement, quelqu'un veut-il bien me
le faire ?





LE TROLL
Le #18533261
Mon ami modeste, ça fait trois jours que je pose la même question, elle est
si simple pourtant, vois cette procédure :

Selection.InlineShapes.AddPicture FileName:= _
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True

Elle fonctionne parfaitement, il faut juste lui rajouter ce qui est refusé
avec l'enregistreur, à savoir :
habillage du texte, devant ou derrière le texte, pour que je puisse déplacer
et retailler l'image...

Eh bien, crois moi si tu veux, y en a pas un qui a su faire ça ???

C'est pourtant simple, on me fait ma petite modif, je colle ma procédure
et ça marche, c'est pas compliqué ça,, non d'un chien, ben même une demande
si simple, personne ne comprend : on m'en rajoute, on m'en enlève, on m'en
modifie, mais on ne fait pas ce que je demande, j'ai du chagrin tu sais...

Et toi, par hasard, tu ne saurais pas ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Modeste" news:
Bonsour® isabelle
par exemple :

chemin > "C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top, 100, 100



arghhh !!!!
tu va finir par énerver Joseph Attila !!!!
tu pourrai au moins tester ta proc ...
tu sais pourtant bien qu'il connait rien à VBA !!!

ActiveDocument n'est pas un mot clé VBA.EXCEL !!!!
;o)))
LE TROLL
Le #18533251
Et comme tu as commencée si tu me l'a faisais, ça ne serait pas terminé
depuis longtemps ?

J'ai juste besoin d'un copier coller, je ne veux pas apprendre le VBA,
qu'est-ce que tu veux que j'en fasse ?

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:%
regarde la reponse de modeste, (ActiveDocument) ActiveSheet

isabelle

LE TROLL a écrit :
Bonjour,

Marche pas :

Dim chemin As String
chemin =
"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePusztay.bmp"
ActiveDocument.Shapes.AddPicture chemin, True, True, 200,
ActiveCell.Top , 100, 100

--------------------

ligne 3 en rouge, il doit lui manquer quelque chose (la virgule ?) ???
Et si je retire la virgule de la ligne 3, la ligne 4 dit qu'un objet est
requis ???

Ce serait bon à part ça, mais ça ne se met pas sur la ligne courante ???






isabelle
Le #18533221
LE TROLL a écrit :
Il me faut exactement cette fonctionnalité + (habillage du texte
(devant ou derrière le texte), que je puisse déplacer l'image, sais-tu
faire ???



Application.Goto [IV65536]

isabelle (geôlière)
Alain L
Le #18533211
Bonjour à toi aussi,

Maître Le Troll pourrait être plus avenant avec ceux qu'il
considère comme du petit personnel.
Du moins c'est comme ça que je j'interprète la lecture de ce
fil.

Bien le bonjour chez vous.

"LE TROLL" news:
Il me faut exactement cette fonctionnalité + (habillage du


texte (devant ou
derrière le texte), que je puisse déplacer l'image,


sais-tu faire ???

Selection.InlineShapes.AddPicture FileName:= _



"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp",
_
LinkToFile:úlse, SaveWithDocument:=True


--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"isabelle" a écrit dans le message de
news:
> bonjour,
>
> les arguments de AddPicture sont :
>
> /expression/.*AddPicture*(*/FileName/*, */LinkToFile/*,
> */SaveWithDocument/*, */Left/*, */Top/*, */Width/*,


*/Height/*)
>
> par exemple :
>
> chemin > >


"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp"
> ActiveDocument.Shapes.AddPicture chemin, True, True,


200, ActiveCell.Top,
> 100, 100
>
> isabelle
>
>
>
> LE TROLL a écrit :
>> Bonjour,
>>
>> Cette macro, et seulement cette macro :
>>
>> Sub signePusztay()
>> ActiveDocument.Shapes.AddPicture FileName:= _
>>


"C:UsersjoeDocumentsIMAGESphotosSIGNATURESsignePuszta
y.bmp", _
>> LinkToFile:=True, SaveWithDocument:=True, Left: 0
>> End Sub
>>
>> Elle est parfaite, il faut juste la modifier pour


qu'elle se positionne à
>> la
>> ligne courante du curseur, juste et seulement,


quelqu'un veut-il bien me
>> le faire ?
>>



isabelle
Le #18533201
LE TROLL a écrit :
Et comme tu as commencée si tu me l'a faisais, ça ne serait pas
terminé depuis longtemps ?

J'ai juste besoin d'un copier coller, je ne veux pas apprendre le VBA,
qu'est-ce que tu veux que j'en fasse ?



Application.Goto [IV65536]

isabelle (geôlière
Publicité
Poster une réponse
Anonyme