Path: csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!aioe.org!eternal-september.org!feeder.eternal-september.org!.POSTED!not-for-mail
From: GS <gs@somewhere.net>
Newsgroups: comp.lang.basic.visual.misc
Subject: Re: VB6 to Excel
Date: Sun, 24 Apr 2011 13:44:25 -0400
Organization: A noiseless patient Spider
Lines: 16
Message-ID: <ip1nc4$p38$1@dont-email.me>
References: <aiUsp.26$2z7.14@newsfe15.ams2> <ip194v$a7k$1@dont-email.me> <VA.000001cd.b50ab3dc@rdpslides.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-15"; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sun, 24 Apr 2011 17:41:24 +0000 (UTC)
Injection-Info: mx01.eternal-september.org; posting-host="UVJBuiIZprDyxzUkJsiwfw"; logging-data="25704"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/IBrMP165v98xI//PBui8J"
X-Antivirus-Status: Clean
X-Newsreader: MesNews/1.08.03.00-gb
X-Antivirus: avast! (VPS 110424-0, 04/24/2011), Outbound message
Cancel-Lock: sha1:PfMPjBQFxXbT651ig260O4pMqHY=
X-ICQ: 543516788
Xref: x330-a1.tempe.blueboxinc.net comp.lang.basic.visual.misc:101

Steve,
Thanks for that handy tip using OLEFormat. I've revised the code as 
follows:

With xlSheet.Shapes.AddFormControl(xlButtonControl, 100, 100, 100, 100)
    .OLEFormat.Object.Caption = "ButtonCaption"
    .OnAction = "MacroName"
End With

-- 
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc