J
John... Visio MVP
Does anyone now how to work with msoshapemixed? In other words, if a shape
has that type, what do you do next?
John... Visio MVP
has that type, what do you do next?
John... Visio MVP
Can you give an example of how to get a shape of this type?Does anyone now how to work with msoshapemixed? In other words, if a shape
has that type, what do you do next?
Cindy M. said:Hi John...,
Can you give an example of how to get a shape of this type?
You might want to try asking this in the PowerPoint newsgroup, as they
deal
more with Shape objects than other Office applications. And be sure to
ALWAYS
mention the version of Office involved. Especially since 2007 (partially)
introduced the new graphics engine, things aren't the same across versions
any more...
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail![]()
But in this case, given the change in graphics engine, I'm afraid it'sThis was a very targeted message. I did not want to eliminate any answers
because I mentioned 2007. The version of Word either includes this
enumeration or not.
macropod said:Hi John,
In case locating the offending shape would help resolve the problem, you
could run the following macro to identify the first such shape:
Sub FindmsoShapeMixed()
Dim oShp As Shape
With ActiveDocument
For Each oShp In .Shapes
With oShp
If .Type = msoAutoShape Then
If .AutoShapeType = msoShapeMixed Then
.Select
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Exit Sub
End If
End If
End With
Next
End With
End Sub
--
Cheers
macropod
[MVP - Microsoft Word]
John... Visio MVP said:Does anyone now how to work with msoshapemixed? In other words, if a
shape has that type, what do you do next?
John... Visio MVP
John... Visio MVP said:I'm working in the other direction.
The type msoShapeMixed is defined an an enumeration of msoAutoShape types, but I have yet to find a description of what it is and
what I need to do if I find one.
So I do not currently have an existing msoShapeMixed to play with, I just would like to know what to do when I find one. I'm
looking at creating a routine to copy Office drawings to a business graphics package. Cut and Paste will work, but the results are
disappointing.
John... Visio MVP
macropod said:Hi John,
In case locating the offending shape would help resolve the problem, you could run the following macro to identify the first such
shape:
Sub FindmsoShapeMixed()
Dim oShp As Shape
With ActiveDocument
For Each oShp In .Shapes
With oShp
If .Type = msoAutoShape Then
If .AutoShapeType = msoShapeMixed Then
.Select
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Exit Sub
End If
End If
End With
Next
End With
End Sub
--
Cheers
macropod
[MVP - Microsoft Word]
John... Visio MVP said:Does anyone now how to work with msoshapemixed? In other words, if a shape has that type, what do you do next?
John... Visio MVP
macropod said:Hi John,
For the best results when pasting into another app, enlarge the Office
drawings as much as practical (can be larger than screen or page size)
before cutting & pasting. You can do this by increasing the zoom or
changing the size of an embedded drawing. That way, you're not limited to
the screen resolution of the image at its native scaling.
--
Cheers
macropod
[MVP - Microsoft Word]
John... Visio MVP said:I'm working in the other direction.
The type msoShapeMixed is defined an an enumeration of msoAutoShape
types, but I have yet to find a description of what it is and what I need
to do if I find one.
So I do not currently have an existing msoShapeMixed to play with, I just
would like to know what to do when I find one. I'm looking at creating a
routine to copy Office drawings to a business graphics package. Cut and
Paste will work, but the results are disappointing.
John... Visio MVP
macropod said:Hi John,
In case locating the offending shape would help resolve the problem, you
could run the following macro to identify the first such shape:
Sub FindmsoShapeMixed()
Dim oShp As Shape
With ActiveDocument
For Each oShp In .Shapes
With oShp
If .Type = msoAutoShape Then
If .AutoShapeType = msoShapeMixed Then
.Select
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Exit Sub
End If
End If
End With
Next
End With
End Sub
--
Cheers
macropod
[MVP - Microsoft Word]
Does anyone now how to work with msoshapemixed? In other words, if a
shape has that type, what do you do next?
John... Visio MVP
FWIW your best bet for "transferring" graphics is probably to save theI'm looking at creating a
routine to copy Office drawings to a business graphics package. Cut and
Paste will work, but the results are disappointing.
The problem is that when a simple shape is copied, it ends up as a grouped
shape with a shape for the background, a shape for the outline colour and
shapes for each line of text. Some times the lines of text are not
associated with the shape. So yes, you end up with something that looks the
same, but it is unusable to work with.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.