On 6/17/05 9:14 AM, in article VA.000017ed.15a5416c@localhost.com, "Steve
Rindsberg" <abuse@localhost.com> wrote:
>> I have a large number of presentation (over 100) that are between 70 and 120
>> MB in size. Each file contains anywhere from 10 - 50 movie links. Many of
[quoted text clipped - 10 lines]
> before deciding that the link is unavailable. If you can show it present but
> *empty* disk media rather than no disk media, you cut out the wait time.
It would be impossible to recreate the original folders. Not only are we
talking probably over 1000 folders, but they come from OS 9 land, and many
of them have illegal characters.
> Next, try ungrouping one of the shapes that represents the movie.
> If that gives you what you want (picture but no movie or link) we can probably
> fix you up with a macro that'll automate the task across a whole presentation.
I can't seem to find a way to ungroup the shape that contains the movie and
poster image. PowerPoint doesn't present them as a group, although
programmatically they are. Any suggestions?
> As far as the multiple links in a file and whatnot:
>
[quoted text clipped - 7 lines]
> insert once then copy many, it doesn't suck in the entire data content but
> once; subsequent usages get a pointer to the content.
After examining the file again, your theory on multiple links to save space
seems to be valid. After running a file through a meta-data cleaner, and
saving it with "Allow Fast Saves" off, the number of links to the file
dropped dramatically. We are experimenting now with that file . . . I'll
let you know what happens.
> ================================================
> Steve Rindsberg, PPT MVP
> PPT FAQ: www.pptfaq.com
> PPTools: www.pptools.com
> ================================================
Thanks,
A little more rested in Salt Lake
Steve Rindsberg - 17 Jun 2005 21:42 GMT
> It would be impossible to recreate the original folders. Not only are we
> talking probably over 1000 folders, but they come from OS 9 land, and many
> of them have illegal characters.
Nuts.
If you know the names of all the movies and can put them in the same folder as the
PPT, it might be possible to do the conversion in code. Conceptually, in aircode:
Sub FixEmUp()
Dim oSh As Shape
Dim oSl As Slide
For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
' is it a media file
If oSh.Type = msoMedia Then
' is it a movie rather than sound
If oSh.MediaType = ppMediaTypeMovie Then
If oSh.LinkFormat.SourceFullName <> "" Then
' I'm a PC guy and don't recall exactly what Mac paths should
look like
' you'll need to work out how to parse the path and leave
' just the filename here
'oSh.LinkFormat.SourceFullName = "JustTheFilename"
' OR we can do it the chee-Z way and let you edit it manually
' Still beats the alternative!
oSh.LinkFormat.SourceFullName = InputBox("Edit away all but
the filename", _
"Edit the path", _
oSh.LinkFormat.SourceFullName)
End If
End If
End If
Next ' shape
Next ' slide
End Sub
> > Next, try ungrouping one of the shapes that represents the movie.
> > If that gives you what you want (picture but no movie or link) we can probably
[quoted text clipped - 3 lines]
> poster image. PowerPoint doesn't present them as a group, although
> programmatically they are. Any suggestions?
PPTX lets me copy the movie and then Edit, Paste Special, Picture. That seems to
do the job. Give that a try.
> > As far as the multiple links in a file and whatnot:
> >
[quoted text clipped - 23 lines]
>
> A little more rested in Salt Lake
================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Jim Gordon MVP - 18 Jun 2005 17:30 GMT
Hi Steve,
Another suggestion - use the breaklink command.
Sub LinkExample()
'This example breaks the links between any OLE objects on slide one in
the active presentation and their source files.
For Each sh In ActivePresentation.Slides(1).Shapes
If sh.Type = msoLinkedOLEObject Then
With sh.LinkFormat
.BreakLink
End With
End If
Next
End Sub

Signature
Jim Gordon
Mac MVP
MVP FAQ
<http://mvp.support.microsoft.com/default.aspx?scid=fh;EN-US;mvpfaqs>
>>It would be impossible to recreate the original folders. Not only are we
>>talking probably over 1000 folders, but they come from OS 9 land, and many
[quoted text clipped - 80 lines]
> PPTools: www.pptools.com
> ================================================
Steve Rindsberg - 18 Jun 2005 18:40 GMT
> Hi Steve,
>
[quoted text clipped - 11 lines]
> Next
> End Sub
Depending on what you want to do, yes, very good point. Setting the link to
pathless will make it work, so long as the movie's in the same folder as the
PPT. If the movie's not available, breaking the link's the only sane thing.
FWIW, .BreakLink isn't available on PPT/Windows, or apparently PPTX either.
The Object Browser goes "Huh?" when you go looking for it.
================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Jim Gordon MVP - 19 Jun 2005 17:10 GMT
Hi Steve,
It appears to be an omission in the object browser. However if you
search for breaklink in help it's in both PowerPoint 2004 and v.X.
In PowerPoint 2001 it's found in help under LinkFormat Property.
I bet it's available in Windows PowerPoint, too.
-Jim

Signature
Jim Gordon
Mac MVP
MVP FAQ
<http://mvp.support.microsoft.com/default.aspx?scid=fh;EN-US;mvpfaqs>
>>Hi Steve,
>>
[quoted text clipped - 23 lines]
> PPTools: www.pptools.com
> ================================================
Steve Rindsberg - 19 Jun 2005 19:04 GMT
> Hi Steve,
>
[quoted text clipped - 4 lines]
>
> I bet it's available in Windows PowerPoint, too.
I'm in 2000 at the moment and it's not there (in the object browser for one,
and PPT goes "Woof!" at you if you try to invoke the method, so it's not just a
case of it being missing from the OB).
[checks in 2003 as well]
Nope. Nobody home.
Must be a Mac thing. PPTwin wouldn't understand. <g>
================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Steve Rindsberg - 20 Jun 2005 04:38 GMT
> Hi Steve,
>
> It appears to be an omission in the object browser. However if you
> search for breaklink in help it's in both PowerPoint 2004 and v.X.
>
> In PowerPoint 2001 it's found in help under LinkFormat Property.
Weird, this one. Here's what I tried in PPTX and 2001:
Sub SimpleMinded()
With ActiveWindow.Selection.ShapeRange(1).LinkFormat
.breaklink
End With
End Sub
It won't compile in either. Help's so screwed up in my install of X as to be
useless. Sigh. I'll trust ya that it appears there. <g>
Does it work in X, though?
(Mostly idle curiosity, since OP has two possible solutions to the dilemma)
================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Jim Gordon MVP - 20 Jun 2005 16:00 GMT
Hi Steve,
The syntax you provided does not please the PowerPoint gods. However,
the sytax provided by Help does work in v.X and 2004.
In 2001 the code runs without error but has no effect. Same thing with
2003 (Windows). The sample code provided for LinkFormat in 2003 help is
very different from the sample in Mac PPT. I didn't try it, though.
-JIm

Signature
Jim Gordon
Mac MVP
MVP FAQ
<http://mvp.support.microsoft.com/default.aspx?scid=fh;EN-US;mvpfaqs>
>>Hi Steve,
>>
[quoted text clipped - 23 lines]
> PPTools: www.pptools.com
> ================================================
Steve Rindsberg - 20 Jun 2005 19:33 GMT
Jim,
> The syntax you provided does not please the PowerPoint gods.
Ah me. SO many of the things I do in PPT seem to get me in hot water with
them.
>However,
> the sytax provided by Help does work in v.X and 2004.
Go figya.
================================================
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================