Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems with xl97 & xl2K
Hi
I have a version problem. The following script creates an icon on the toolbar. The problem is, that Excel 97 and Excel 2000 cannot handle the ..Picture property. Private Sub SetIcon(cbrCtrl As CommandBarButton, shpPict As Shape, shpMask As Shape) Dim oMask As StdPicture If Val(Application.Version) <= 9 Then shpPict.Copy cbrCtrl.PasteFace Else shpMask.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace Set oMask = cbrCtrl.Picture shpPict.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace cbrCtrl.Mask = oMask End If Application.CutCopyMode = False End Sub How to program this code without a compile error? Tom |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems with xl97 & xl2K
put the code in the second leg of the if statement in a separate sub and
don't comile. Call the sub if the version so dictates. -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi I have a version problem. The following script creates an icon on the toolbar. The problem is, that Excel 97 and Excel 2000 cannot handle the .Picture property. Private Sub SetIcon(cbrCtrl As CommandBarButton, shpPict As Shape, shpMask As Shape) Dim oMask As StdPicture If Val(Application.Version) <= 9 Then shpPict.Copy cbrCtrl.PasteFace Else shpMask.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace Set oMask = cbrCtrl.Picture shpPict.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace cbrCtrl.Mask = oMask End If Application.CutCopyMode = False End Sub How to program this code without a compile error? Tom |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems with xl97 & xl2K
Is it not possible to use something like that:
#If VB6 Then .... or #If ccXL2K Then .... Tom "Tom Ogilvy" schrieb im Newsbeitrag ... put the code in the second leg of the if statement in a separate sub and don't comile. Call the sub if the version so dictates. -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi I have a version problem. The following script creates an icon on the toolbar. The problem is, that Excel 97 and Excel 2000 cannot handle the .Picture property. Private Sub SetIcon(cbrCtrl As CommandBarButton, shpPict As Shape, shpMask As Shape) Dim oMask As StdPicture If Val(Application.Version) <= 9 Then shpPict.Copy cbrCtrl.PasteFace Else shpMask.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace Set oMask = cbrCtrl.Picture shpPict.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace cbrCtrl.Mask = oMask End If Application.CutCopyMode = False End Sub How to program this code without a compile error? Tom |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems with xl97 & xl2K
No it isn't. xl2000 and greater would evaluate to True for #if VBA6
Unless you want to manually alter your code to define your own constant, there is no predefined constant that will identify xl2000 from xl2002 (or xl2003). You can separate xl97 from xl2000 and later that way, but not xl97 and xl2000 separate from xl2002 and later. -- Regards, Tom Ogilvy "Tom" wrote in message ... Is it not possible to use something like that: #If VB6 Then ... or #If ccXL2K Then ... Tom "Tom Ogilvy" schrieb im Newsbeitrag ... put the code in the second leg of the if statement in a separate sub and don't comile. Call the sub if the version so dictates. -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi I have a version problem. The following script creates an icon on the toolbar. The problem is, that Excel 97 and Excel 2000 cannot handle the .Picture property. Private Sub SetIcon(cbrCtrl As CommandBarButton, shpPict As Shape, shpMask As Shape) Dim oMask As StdPicture If Val(Application.Version) <= 9 Then shpPict.Copy cbrCtrl.PasteFace Else shpMask.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace Set oMask = cbrCtrl.Picture shpPict.CopyPicture xlScreen, xlBitmap cbrCtrl.PasteFace cbrCtrl.Mask = oMask End If Application.CutCopyMode = False End Sub How to program this code without a compile error? Tom |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change Autosave defaults in XL2k | Setting up and Configuration of Excel | |||
Does XL2K have hard hyphens? | Excel Discussion (Misc queries) | |||
Copying autoshapes - XL2K | Excel Discussion (Misc queries) | |||
Paste columnwidths in Xl2k problem | Excel Programming | |||
Open XL2K without executing Macros | Excel Programming |