msoshapemixed?

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
 
C

Cindy M.

Hi John...,
Does anyone now how to work with msoshapemixed? In other words, if a shape
has that type, what do you do next?
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)
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 :)
 
J

John... Visio MVP

ALWAYS mention the version. ;-)
This 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. I would put it in the same category of walking in to a
room and asking for Cindy Meister and being asked what MVP award she has.
You either know Cindy or not. If not, then you are missing out.

I did have a good PPT helper, Brian R, but unfortunately, he is no longer
able to help. I'll go back and see what the PPTers say.

John,,, Visio MVP (v2009)
 
J

John... Visio MVP

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 :)

Oh, as to the example, I am trying to read the Word Shapes collection to be
able to understand the shapes and shape information in the shape collection
and I am running in to the occassional shape type of mixed. So I am stumped
as what to do next.

John... Visio MVP
 
C

Cindy M.

Hi John...,
This 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.
But in this case, given the change in graphics engine, I'm afraid it's
necessary. In Word, the old Enum is still there, but can't always be used or
won't work the way it did in earlier versions.

Cindy Meister
 
M

macropod

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
 
J

John... Visio MVP

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
 
M

macropod

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]


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
 
J

John... Visio MVP

Not a viable solution. Resolution is not an issue.

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.

The msoShapeMixed type does show up in Smart Art, but using the local
variable window and some spilunking, I am unable to determine anything
beyond that it is an msoMixedShape/

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
 
C

Cindy M.

Hi John...,
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.

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.
FWIW your best bet for "transferring" graphics is probably to save the
Office document in a file format that allows you to access the graphics
as graphics files. Up through 2003, that would be HTML. From 2007 on,
OpenXML.

Both Steve Rindsberg and I worked with a company a few years ago that
developed a tool to ensure colors in Office documents displayed and
printed the same way you see them on the screen. This was the approach we
had to take for some of the graphics types (so we ended up using it for
everything).

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 :)
 
J

John... Visio MVP

Thanks Cindy. I have looked at the OpenXML and may end up going that route.

Except for the Smart Art (which may be where the msoshapemixed is coming
in), there is enough information in the Shapes collection to actually do the
transfer. The main purpose is to get the structure, shapes and text in to a
real Visio drawing. I am not really concerned about if the two drawings look
identical as long as the two drawings are functionally the same.

John...
 

Ask a Question

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.

Ask a Question

Top