Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Re: How can I put/insert a "Paid" stamp on an invoice created in Excel

8,789 views
Skip to first unread message

Jon Peltier

unread,
Nov 21, 2006, 8:46:49 PM11/21/06
to
Use OfficeArt to make a big ugly "Paid" design, tilt it 30°, and place it
right in the middle of the invoice.

(I use it for reminders!)

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Paul" <Pa...@discussions.microsoft.com> wrote in message
news:26C7DE27-15CE-4EC4...@microsoft.com...
> I've created an Invoice in Excel & it's workign fine. Is there a way to
> insert a "Paid" stamp kind of comment on the invoice.


Jon Peltier

unread,
Nov 21, 2006, 8:47:41 PM11/21/06
to
Sorry, I meant WordArt.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Jon Peltier" <jonxl...@SPAMpeltiertech.com> wrote in message news:...

veryeavy

unread,
Nov 21, 2006, 10:56:01 PM11/21/06
to
And draw a nice command button and attach a macro to it so you can (kinda)
replicate the thump of the rubber stamp with a gentle click ....

Paul

unread,
Nov 21, 2006, 11:29:01 PM11/21/06
to
Thank you Jon for your prompt help. Much appreciated. Regards-Paul.

Paul

unread,
Nov 21, 2006, 11:32:01 PM11/21/06
to
Many Thanks. Would it be possible at all, if you can explain the command
button & macro to me in steps that I can follow to get your suggested result.

veryeavy

unread,
Nov 22, 2006, 12:00:01 AM11/22/06
to
Hey Jon,

You've kinda called my bluff. With a little bit of help from this group I
could probably get one of these working smoothly.

I know there will be someone out there who can explain this clearly and
concisely - I started drafting a response and realised I will probably miss
out a vital step and put you off horribly.

This will take you into the realm of recording (and possibly editing) macros
so it would be good how keen you are to start learning how to automate things
...

CLR

unread,
Nov 22, 2006, 8:06:01 AM11/22/06
to
Here's a little macro to do it for you........you can assign it to a button,
or just use the Keyboard shortcut of Ctrl-P

Sub PaidStamp()
'========================================
'Places "Paid" artwork on sheet
'Keyboard Shortcut: Ctrl+p
'========================================
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Paid", "Arial Black",
96#, _
msoFalse, msoFalse, 252.75, 132.75).Select
Selection.ShapeRange.IncrementRotation -30#
Selection.ShapeRange.IncrementLeft -45#
Selection.ShapeRange.IncrementTop 64.5
Selection.ShapeRange.Fill.Visible = msoFalse
Range("A1").Select
End Sub

hth
Vaya con Dios,
Chuck, CABGx3

Gord Dibben

unread,
Nov 22, 2006, 12:53:17 PM11/22/06
to
CLR has alredy posted a very nice macro for you.

See his posting.


Gord Dibben MS Excel MVP

0 new messages