DIsegno frecce

[Maurizio56]

Rieccomi a Voi per cercere di risovere un problema. Nel foglio di lavoro,
dovrei inserire una freccia, ma come faccio ad inserirla tramite VBA?? in
quanto dovrei, e non ne ho la più pallida idea, di cercare le coordinate del
punto in cui mi trovo.
Certamente più di un consiglio mi darete e ve ne ringrazio

--
Maurizio56

[fernando cinquegrani]

"Maurizio56" <calma2...@libero.it> ha scritto nel messaggio news:iccXa.223666$lK4.6...@twister1.libero.it...

| Rieccomi a Voi per cercere di risovere un problema. Nel foglio di lavoro,
| dovrei inserire una freccia, ma come faccio ad inserirla tramite VBA?? in
| quanto dovrei, e non ne ho la più pallida idea, di cercare le coordinate del
| punto in cui mi trovo.

per aggiungere un freccia da (x1,y1) a (x2,y2) sul foglio attivo
Activesheet.Shapes.AddLine(x1, y1, x2, y2).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
dove sono (x1,y1) e (x2,y2) non è così facile.
puoi utilizzare, ad esempio, qualche riferimento alla cella attiva
x1=activecell.left+activecell.width/2
y1=activecell.top+activecell.height/2
ma le coordinate del mouse possono essere rilevate sono con
approssimazione e sono soggette a numerosi vincoli (zoom, finestre, ...).
ne abbiamo già discusso nel newsgroup. vedi
http://www.prodomosua.it/zips/punta.xls
.f
fernando cinquegrani
Microsoft MVP
http://www.prodomosua.it