Monthly Archives: November 2014

Poista PowerPoint 2013 linkit

PowerPointissa 2013 et pysty valitsemaan useita linkkejä samanaikaisesti ja poistaa niitä.
Siihen tarvitaan pieni VBA-koodi avuksi joka löytyy mm tältä sivustolta:

http://www.pptfaq.com/FAQ01172-Break-all-of-the-links-in-a-presentation.htm

Mikäli sivu ei aukeaisi niin ohessa koodi:

Sub BreakAllLinks()
    Dim oSld As Slide
    Dim oSh As Shape
    For Each oSld In ActivePresentation.Slides
           For Each oSh In oSld.Shapes
           If oSh.Type = msoLinkedOLEObject Then
                   oSh.LinkFormat.BreakLink
           End If
           Next   ' Shape
    Next   ' Slide
 End Sub