Macro per settare proprietà immagine

Question

Buona sera,

ho una presentazione powerpoint nella quale ho diverse immagini. Queste vengono inserite con dei copia/incolla da diverse applicazioni.

Ho la necessità di dare a tutte la stessa identica dimensione e posizione. Attualmente faccio tutto manualmente ma vorrei crearmi un pulsante (macro) che la semplice pressione mi ridimensioni e riposizioni l'immagine selezionata.

Purtroppo in powerpoint la macro la devo scrivere da 0 e non riesco a capire come fare a dire su quale "oggetto" applicare la proprietà ".height = 12", ".top =100" e così via.

Spero possiate aiutarmi.

Grazie in anticipo

Answer 1

Ma non c'è modo di applicare le proprietà solo a quella selezionata?

Public Sub m()

    With ActiveWindow.Selection.ShapeRange

        .Left = 10

        .Top = 10

        .Width = 100

        .Height = 50

    End With

End Sub

Answer 2

Grazie mille e complimenti anche per la rapidità.

Adesso sposta tutte le immagini. Ma non c'è modo di applicare le proprietà solo a quella selezionata?

Poco fà non intendevo al "tipo di oggetto selezionato", ma singola immagine. Scusa. Mi sono espresso male.

Grazie ancora.

Answer 3

Prova:

Public Sub m()

     Dim dia As Slide

     Dim shp As Shape

     For Each dia In ActivePresentation.Slides

         For Each shp In dia.Shapes

             With shp

Select Case .Type

Case 13, 14

.Left = 10

.Top = 10

.Width = 100

.Height = 50

End Select

             End With

         Next

     Next

 End Sub

Io non so cosa hai sulle tue Slides. Se non funziona prova a sostituire la parte in grassetto con:

    MsgBox shp.Type

in modo da capire quale costante corrisponde agli oggetti che hai sulla Slide. Quindi, modificherai i valori delle costanti di Case.

Answer 4

Grazie mille.

L'istruzione funziona, però applica l'impostazione a tutti gli oggetti. Compresi i testi.

C'è modo di applicare le proprietà solo all'oggetto selezionato (nello specifico parlo sempre di immagini)?

Answer 5

Ho la necessità di dare a tutte la stessa identica dimensione e posizione.

Ad esempio:

Public Sub m()

    Dim dia As Slide

    Dim shp As Shape

    For Each dia In ActivePresentation.Slides

        For Each shp In dia.Shapes

            With shp

                .Left = 10

                .Top = 10

                .Width = 100

                .Height = 50

            End With

        Next

    Next

End Sub