Powerpoint macro

Quote:

---

Originally Posted by RobDog888

Split from FAQ item - http://www.vbforums.com/showthread.php?t=402032

AFAIK, there is no way to record a macro in PowerPoint but if there is something you need code help with, just post the question as we may be able to help you with it.

---

Hello, good morning! This is my very first time in VB Foruns and I hope I´m doing the right thing by posting the question here. Tks, administrator, for your patience.

I´m so depressed to hear that the macro recorder is not available in PowerPoint 2010… Really?! I´m not a developer, so the furthest point that I went was to give a name to the “macro” and open it in VBA. End of the experience.:blush:

I´ve made some research and really tried to have a clue, but it´s time to admit that (now) this is only developers fun. Really, just waste my time and increased the frustration... Jajaja! So this is why I´m here asking for help :confused:

I have to do the same sequence (formatting and adjusting an image) in HUNDREDS AND HUNDREDS of slides... :/ This macro would really really save my life. I think the sequence is simple, it goes like this...

After pasting a print screen:

1) CROP the top of the image (in order to "clean" the print - I can´t show some details; the first adjustment of the total height is precise: from 21,17 cm to 19,36 cm, so the crop is 1,81 cm from top )

2) CROP the bottom of the image (the second adjustment, also precise: now the total height goes from 19,36 cm to 18,47 cm, so the crop is 0,89 cm from botton)

3) RESIZE the image (to a specific width only, 33 cm - the proportion will do the rest)

4) ALIGN center

5) ALIGN middle

Please, is there a macro to do this sequence?

I´m very thankful for any help,
regards,

Larissa

Quote:

---

I hope I´m doing the right thing by posting the question here.

---

not really, you should have started a new thread, i will ask a moderator to fix, you are more likely to get a useful reply in a new thread

i do not use powerpoint or have it installed, but a quick google found https://stackoverflow.com/questions/...oint-using-vba

Code:

---

With ActivePresentation.Slides(3).Shapes(1)
  .PictureFormat.CropLeft = 10
  .PictureFormat.CropTop = 10
  .PictureFormat.CropRight = 10
  .PictureFormat.CropBottom = 10
End With

---

you will need to modify the first line to correctly specify each shape in turn, adding the width and centering required, should not be much of a problem

I've moved this question to a new thread (thanks pete :thumb: )

In my sample presentation, I have multiple shapes on each slide, but only one picture. This code will crop each picture on each slide, then resize and center. It's not 100% precise as far as the conversion from CM to "points" goes, but it's pretty close:

Code:

---

Sub changePics()
    Dim pres As Presentation
    Dim sld As Slide
    Dim shp As Shape
    Dim cropTop As Single
    Dim cropBot As Single
   
    Set pres = ActivePresentation
    cropTop = 1.81 * 28.34646  'convert from CM to points
    cropBot = 0.89 * 28.34646

    For Each sld In pres.Slides
        For Each shp In sld.Shapes
            If LCase(Left(shp.Name, 3)) = "pic" Then
                With shp
                    With .PictureFormat
                        .cropTop = cropTop  'crop points from top
                        .CropBottom = cropBot
                    End With
                    .Width = 12 * 28.34646  'my pictures were smaller, change the 12 to 33
                    .Left = (960 - .Width) / 2  'a slide in my version of PowerPoint is 960 points wide, older versions 720
                    .Top = (540 - .Height) / 2
                End With
            End If
        Next
    Next
End Sub

---

Hey, Westconn, tks a lot for your reply :)
And for asking the moderator to fix my wrong post :blush:
I edit the macro on VBA but I can´t see it working - got a message saying that the macro can´t be found due to security settings. In
Powerpoint, I went to Macro Security > Macro configurations and checked the option "Enable all macros" (last one), so I have no clue what´s wrong :/
Anyway, I´m gonna try it again... Tks again for your help! :)

Tks, Moderator! :)

Heyyy vbfbryce, tks a lot for your hepl!
I´m having some trouble with security settings so I can´t check it now, but I´m gonna try to figure out what´s wrong and I´ll let you know as soon as I can! rs
OBS: After editing the macro, I got a message saying that "the macro can´t be found due to security settings". In Powerpoint, I went to Macro Security > Macro configurations and checked the option "Enable all macros" (last one), so I don´t know what is wrong. Any help? Again, tks a lot for you kind return!
Regards
PS: Sorry for the print screen in Portuguese... this is my default language. This is the error message I got (even if the setting are OK...:mad:) over the "Trust Central".
Attachment 150209