dessiner un rond Ø 120mm

capricorne68 · 16 Janvier 2009

bonjour tous le monde

comment dessiner un rond parfait de diametre 120mm avec la barre d'outil dessin et que a l'impression , il ne s'imprime pas en forme excentré , mais en rond parfait comme à l'ecran.

merci

jeanpierre · 16 Janvier 2009

Re : dessiner un rond Ø 120mm

Bonsoir capricorne68,

A te dire, j'ai déjà eu ce problème à résoudre, mais à l'époque sans l'aide d'XLD, et je n'y suis jamais parvenu.

L'impression est très différente de ce que l'on voit, notamment sur des formes.

Regarde par Aperçu avant impression, le problème existe déjà.

Il va te falloir modifier à l'écran ton dessin (le déformer) pour qu'à l'impression il soit correct, ici et dans ton exemple hauteur 5.66 et largeur 5.19 pour que dans l'aperçu ce soit tel que tu le désires. Reste à voir ensuite si l'imprimante va suivre.

Pas d'autre solution pour moi.

Bonne soirée.

Jean-Pierre

noviceAG · 16 Janvier 2009

Re : dessiner un rond Ø 120mm

Bonsoir capricorne, jeanpierre, le Forum,

J'ai fait un essai et si je met dans le format de la forme hautreur 5,19 et largeur 5,19, j'obtiens bien un rond à l'impression.
Au plaisir et bonne soirée

capricorne68 · 17 Janvier 2009

Re : dessiner un rond Ø 120mm

bonjour j-pierre , noviceAG

merci de vos reponses , je vais devoir faire des essais et adapter mon cercle suivant le resultat de l'impression .

a+

pierrejean · 17 Janvier 2009

Re : dessiner un rond Ø 120mm

bonjour a tous

En theorie cette macro devrait donner un cercle de 12 cm (on suppose que l'image est la seule sur la feuille sinon adapter 1 )

Code:

sub test
ActiveSheet.Shapes([COLOR=red]1[/COLOR]).Width = Application.CentimetersToPoints(12)
ActiveSheet.Shapes([COLOR=red]1[/COLOR]).Height = Application.CentimetersToPoints(12)
end sub

En pratique (et surtout apres avoir imprimé) ,il y aura surement a ajuster

capricorne68 · 17 Janvier 2009

Re : dessiner un rond Ø 120mm

bonsoir pierrejean , le forum

ca fonctionne , apres un petit ajustement .

merci

dessiner un rond Ø 120mm

capricorne68

XLDnaute Occasionnel

Pièces jointes

jeanpierre

Nous a quitté

noviceAG

XLDnaute Impliqué

capricorne68

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

capricorne68

XLDnaute Occasionnel

Discussions similaires