M
matsam
Guest
Bonjour,
je souhaite créer un bouton "quitter" à positionner en haut à droite de ma feuille. celui ci doit etre créé par une macro qui le place au bon endroit.
Quelle fonction dois-je utiliser pour faire ce déplacement. J'ai lu (aide et support microsoft) qu'il faut mettre la photo dedans mais le code ne fonctionne pas, c'est le suivant :
Sub MAIN
InsertionCadre
InsertionImage.Nom ="D:\My Documents\croix_quitter.GIF", .LierAuFichier = "0"
FormatCadre .RenvoiLigneAuto = 0, .ModeLargeur = 0, .LargeurExactement =
0, .ModeHauteur = 0, .HauteurExactement = 1, .PositionHoriz = "15 cm",
.PositionHorizRel = 1, .EntreCadreEtTexteHoriz = 0, .PositionVert = "20
cm", .PositionVertRel = 1, .EntreCadreEtTexteVert = 2, .DéplacerAvecTexte
= 0, .Ancrer = 0
End Sub
ici, on determine aparament la distance de la bordure gauche et du haut de la page ( 15cm et 20cm dans l'exemple). Mais ce code ne marche pas.
Est ce que je dois modifier ce code ou est ce qu'il existe une technique plus facile?
Merci
je souhaite créer un bouton "quitter" à positionner en haut à droite de ma feuille. celui ci doit etre créé par une macro qui le place au bon endroit.
Quelle fonction dois-je utiliser pour faire ce déplacement. J'ai lu (aide et support microsoft) qu'il faut mettre la photo dedans mais le code ne fonctionne pas, c'est le suivant :
Sub MAIN
InsertionCadre
InsertionImage.Nom ="D:\My Documents\croix_quitter.GIF", .LierAuFichier = "0"
FormatCadre .RenvoiLigneAuto = 0, .ModeLargeur = 0, .LargeurExactement =
0, .ModeHauteur = 0, .HauteurExactement = 1, .PositionHoriz = "15 cm",
.PositionHorizRel = 1, .EntreCadreEtTexteHoriz = 0, .PositionVert = "20
cm", .PositionVertRel = 1, .EntreCadreEtTexteVert = 2, .DéplacerAvecTexte
= 0, .Ancrer = 0
End Sub
ici, on determine aparament la distance de la bordure gauche et du haut de la page ( 15cm et 20cm dans l'exemple). Mais ce code ne marche pas.
Est ce que je dois modifier ce code ou est ce qu'il existe une technique plus facile?
Merci