Change the size of a shape in Powerpoint 2007 using VBA


Automation in Powerpoint 2007 is not so easy as it seems, because the macro recording is not available any more. What I wanted to do is to change the shape of some graphs to have a specific size and location.
The following code changes the size and location of the current shape according to our preferences.
Public Sub ChangeImage()
   With ActiveWindow.Selection.ShapeRange(1)
      .LockAspectRatio = msoFalse
      .Width = 720
      .Height = 153.9213
      .Top = 77.8604
      .Left = 0
      ' optional
      '.ZOrder msoSendToBack
   End With
End Sub

Public Sub PrintInfo()
   Debug.Print vbCrLf & "Public Sub ChangeImage()"
   Debug.Print vbTab & "With ActiveWindow.Selection.ShapeRange(1)"
   With ActiveWindow.Selection.ShapeRange(1)
      Debug.Print vbTab & vbTab & ".LockAspectRatio = msoFalse"
      Debug.Print vbTab & vbTab & ".Width = " & Str(.Width)
      Debug.Print vbTab & vbTab & ".Height = " & Str(.Height)
      Debug.Print vbTab & vbTab & ".Top = " & Str(.Top)
      Debug.Print vbTab & vbTab & ".Left = " & Str(.Left)
   End With
   Debug.Print vbTab & "End With"
   Debug.Print "End Sub"
End Sub

The second sub prints the desired code according to the selected shape, so we do not need to check the shape size and position manually before writing the desired code.

Comments

Anonymous said…
Thanks, this really helped.

It's like Microsoft didn't want us to do anything with VBA and PowerPoint!
February 14, 2012 at 11:18 PM
tricky01 said…
Great piece of code and I like using debug print to write the code for you, never seen this before.

If you add 'chr(9) &' into the code too though you can get it to print out the indentation too:

Public Sub printinfo()

Debug.Print vbCrLf & "Public Sub changeimage()"
With ActiveWindow.Selection.ShapeRange
Debug.Print Chr(9) & "With ActiveWindow.Selection.ShapeRange"
Debug.Print Chr(9) & Chr(9) & ".Width = " & Str(.Width)
Debug.Print Chr(9) & Chr(9) & ".Height = " & Str(.Height)
Debug.Print Chr(9) & Chr(9) & ".Top = " & Str(.Top)
Debug.Print Chr(9) & Chr(9) & ".Left = " & Str(.Left)
End With
Debug.Print Chr(9) & "End With"
Debug.Print "End Sub"

End Sub
October 26, 2012 at 6:01 PM
glTaurus said…
You are right, indentation always helps!
March 1, 2013 at 5:59 PM
Post a Comment

Popular posts from this blog

Write Unicode text using VBA

Image
There are some ways to create and access Unicode files using VBA. The most straightforward way is to use the Microsoft Scripting Runtime library. The two following ways may be used to open a file for write operations: 'the scripting lib way Dim fs As New FileSystemObject, txt As TextStream Dim pth As String : pth = "d:\data.txt" Set txt = fs.CreateTextFile(pth, True, True) ''alternative way to open the textfile 'Set txt = fs.OpenTextFile(pth, ForWriting, True, TristateTrue) 'to write simply write the following in Unicode txt.WriteLine "test text" If we want to avoid using the Microsoft Scripting Runtime, we may use the following code; we access the output file in binary mode and we manually convert text to Unicode: 'the manual way Open pth For Binary Access Write As #1 Dim buffer() as Byte : buffer = "test text" Put #1, , buffer Close #1
Read more

Calling Fortran intrinsic functions from Visual Basic

Image
There is a great way to call the Fortran intrinsic libraries from Visual Basic, without wrapping them to dynamic libraries. I have the Digital Fortran installed on my computer, so I found out one of the running DLLs which is the dforrt.dll and that contains the Fortran intrinsic libraries (which are used by the Digital compiler). I simply opened the DLL with the Depends program and I found out the name of the functions that are declared in the DLL file. Knowing that the tangent function is declared as DTAN in Fortran, I found out some functions and declared them in a Visual Basic module file like this: Public Declare Function DTAN# Lib "dforrt.dll" Alias "_FXDTAN" (x#) Public Declare Function DTAN5# Lib "dforrt.dll" Alias "_FXIDTAN" (x#) And here is a sample call: Const PI As Double = 3.14159265358979 'the tangent of PI/4 will return 1.0 Debug.Print DTAN(PI / 4) Of course the tangent function is an intrinsic one in Visual Basic. H
Read more

Dictionary class extensions (CopyTo, Sort) (C#)

Image
It seems that are not any CopyTo and Sort functions in the Dictionary class that resides in the Systems.Collection.Generic namespace. The OrderBy<> extension method used by Linq is not very practical to me, because it does not return a dictionary object. Here is my extension method CopyTo, applicable to generic Dictionary objects, allowing to define a part of the dictionary: public static void CopyTo<T, V>(this Dictionary<T, V> source, Dictionary<T, V> target) { if (target == null) target = new Dictionary<T, V>(); foreach (KeyValuePair<T, V> entry in source) target.Add(entry.Key, entry.Value); } public static void CopyTo<T, V>(this Dictionary<T, V> source, Dictionary<T, V> target, int start) { if (target == null) target = new Dictionary<T, V>(); int iEntry = 0; foreach (KeyValuePair<T, V> entry in source) { if (iEntry++ >= start) target.Add(entry.Key, entry.Value); } } public static void CopyTo<T, V>(thi
Read more