office 2007 variable depth of 3d objects

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jimbo Wales - 23 Nov 2006 11:54 GMT

In office 2007, [I'm using the Word drawing package which I assume is the
same for all parts of office], I'm unable find a box to allow me to input
which 'depth' I'd like on '3D Effects/Depth' under the 'Format' toolbar for a
drawn object. In the old office 2003/previous versions, one could select a
predefined value of 36 or 72 or whatever, but in office 2007, I can find
nothing that allows you to set it to a lower figure...
any ideas?
regards
Jimbo

Reply to this Message

Bob Buckland ?:-) - 23 Nov 2006 16:07 GMT

Hi Jimbo,

You're inserting a shape in this case? If you use the
Drawing Tools=>Format tab of Word 2007 gold (RTM version),
select the 3D effects button in the 3d effects group and the 'Depth' choice is at the bottom of that drop down, but the 'custom'
setting is missing.

Even in Word 2003 that was an odd dialog, as you could move or remove any item from that dropdown except the
customize setting. It's still an available command in Word 2007,

Selection.ShapeRange.ThreeD.Depth =

but it looks like one of the folks here who do more with Word macros may have to create a macro that prompts for the value and that
macro can then be added separately to either the Quick Access Toolbar ("the" toolbar in Word) or as a Ribbon customization.

On your other point, the drawing features for the 2007 Office apps aren't entirely consistent. Word did not implement all of the
features of what MS calls the 'Escher v2 engine', for example in WordArt, Word has OldWord-Art and Powerpoint has the new WordArt.

============
In office 2007, [I'm using the Word drawing package which I assume is the
same for all parts of office], I'm unable find a box to allow me to input
which 'depth' I'd like on '3D Effects/Depth' under the 'Format' toolbar for a
drawn object. In the old office 2003/previous versions, one could select a
predefined value of 36 or 72 or whatever, but in office 2007, I can find
nothing that allows you to set it to a lower figure...
any ideas?
regards
Jimbo>>

Signature

Bob Buckland ?:-)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

Reply to this Message

Cindy M. - 24 Nov 2006 15:02 GMT

Hi Bob,

> but it looks like one of the folks here who do more with Word macros may have to create a macro that prompts for the value and that
> macro can then be added separately to either the Quick Access Toolbar ("the" toolbar in Word) or as a Ribbon customization.

OK, here's one that does a very basic validity check (are any shapes selected and is the input value numeric)

Sub Customize3D_Depth()
Dim ThreeDDepth As String
Dim MsgTitle As String
Dim ThreeD_Default As Variant

MsgTitle = "Custom 3D-Depth"
ThreeD_Default = 18
If Selection.ShapeRange.Count > 0 Then
ThreeDDepth = InputBox( _
"Enter Depth for selected Shapes", _
MsgTitle, ThreeD_Default)
If Not IsNumeric(ThreeDDepth) Then
MsgBox "You must enter a valid number!", _
vbOKOnly + vbCritical, MsgTitle
Exit Sub
End If
Selection.ShapeRange.ThreeD.Depth = Val(ThreeDDepth)
Else
MsgBox "No Shapes are selected.", _
vbOKOnly + vbCritical, MsgTitle
End If
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail :-)

Reply to this Message

Bob Buckland ?:-) - 27 Nov 2006 08:07 GMT

Hi Cindy,

Thank you, that's helpful to fill in that 'blank' (or actually the *lack* of a blank to fill in <g>) for that dialog.

===========
Hi Bob,

Signature

Bob Buckland ?:-)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

Reply to this Message

Cindy M. - 28 Nov 2006 14:29 GMT

Hi Bob,

> Thank you, that's helpful to fill in that 'blank' (or actually the *lack* of a blank to fill in <g>) for that dialog.

You're welcome :-)

Cindy Meister

Reply to this Message