|
Need some fancy graphics
Hi,
The user of a spreadsheet I created would like me to incorporate some fancier graphics. As of now I'm using "Autoshape" trapezoids and rectangles -- I was wondering if anyone knows where I can find more "fancy" graphics which will allow me to set their size through a macro. Below is an example of the clode I am using now: Sub level3recresizedet() Sheets("3rd Level Groundwater").Select thirdrecsel.Select If thirdrec = 0 Then Selection.ShapeRange.Width = 124 Else checkthirdrec = thirdrec 0 And thirdrec <= recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 137.7222222 Else checkthirdrec = thirdrec recvariable And thirdrec <= 2 * recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 151.4444444 Any help is appreciated! Robert |
Need some fancy graphics
Looks like you already are setting their size through a macro. It isn't
clear what you are actually looking for. -- Regards, Tom Ogilvy "Linking to specific cells in pivot table" crosoft.com wrote in message ... Hi, The user of a spreadsheet I created would like me to incorporate some fancier graphics. As of now I'm using "Autoshape" trapezoids and rectangles -- I was wondering if anyone knows where I can find more "fancy" graphics which will allow me to set their size through a macro. Below is an example of the clode I am using now: Sub level3recresizedet() Sheets("3rd Level Groundwater").Select thirdrecsel.Select If thirdrec = 0 Then Selection.ShapeRange.Width = 124 Else checkthirdrec = thirdrec 0 And thirdrec <= recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 137.7222222 Else checkthirdrec = thirdrec recvariable And thirdrec <= 2 * recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 151.4444444 Any help is appreciated! Robert |
Need some fancy graphics
Hi Tom,
Thanks for your reply. I'm looking to find out if anyone has any suggestions on 'fancier' graphics that can be used than the ones I'm currently using (Autoshape trapezoids and rectangles) which will allow their size to be changed through macros, like the one I've included in my original message. I'm thinking maybe some 3D graphics or something like that. Thanks! Robert "Tom Ogilvy" wrote: Looks like you already are setting their size through a macro. It isn't clear what you are actually looking for. -- Regards, Tom Ogilvy "Linking to specific cells in pivot table" crosoft.com wrote in message ... Hi, The user of a spreadsheet I created would like me to incorporate some fancier graphics. As of now I'm using "Autoshape" trapezoids and rectangles -- I was wondering if anyone knows where I can find more "fancy" graphics which will allow me to set their size through a macro. Below is an example of the clode I am using now: Sub level3recresizedet() Sheets("3rd Level Groundwater").Select thirdrecsel.Select If thirdrec = 0 Then Selection.ShapeRange.Width = 124 Else checkthirdrec = thirdrec 0 And thirdrec <= recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 137.7222222 Else checkthirdrec = thirdrec recvariable And thirdrec <= 2 * recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 151.4444444 Any help is appreciated! Robert |
Need some fancy graphics
The shapes you describe have 3D and shading options - play with them using
the drawing toolbar to see what you can do. -- Regards, Tom Ogilvy "Linking to specific cells in pivot table" crosoft.com wrote in message ... Hi Tom, Thanks for your reply. I'm looking to find out if anyone has any suggestions on 'fancier' graphics that can be used than the ones I'm currently using (Autoshape trapezoids and rectangles) which will allow their size to be changed through macros, like the one I've included in my original message. I'm thinking maybe some 3D graphics or something like that. Thanks! Robert "Tom Ogilvy" wrote: Looks like you already are setting their size through a macro. It isn't clear what you are actually looking for. -- Regards, Tom Ogilvy "Linking to specific cells in pivot table" crosoft.com wrote in message ... Hi, The user of a spreadsheet I created would like me to incorporate some fancier graphics. As of now I'm using "Autoshape" trapezoids and rectangles -- I was wondering if anyone knows where I can find more "fancy" graphics which will allow me to set their size through a macro. Below is an example of the clode I am using now: Sub level3recresizedet() Sheets("3rd Level Groundwater").Select thirdrecsel.Select If thirdrec = 0 Then Selection.ShapeRange.Width = 124 Else checkthirdrec = thirdrec 0 And thirdrec <= recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 137.7222222 Else checkthirdrec = thirdrec recvariable And thirdrec <= 2 * recvariable If checkthirdrec = True Then Selection.ShapeRange.Width = 151.4444444 Any help is appreciated! Robert |
| All times are GMT +1. The time now is 01:18 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com