Formatting Excel object in Word 2010 VBA

macropod · #2 03-04-2014, 03:02 PM

Since your Excel object could have been inserted either in-line or floating, the following macro caters for both:

Code:

Sub ReSize()
With Selection
  If .InlineShapes.Count <> 0 Then
    With .InlineShapes(1)
      .LockAspectRatio = True
      .Height = .Height * 0.6
    End With
  End If
  If .ShapeRange.Count <> 0 Then
    With .ShapeRange(1)
      .LockAspectRatio = True
      .Height = .Height * 0.6
    End With
  End If
End With
End Sub

As coded, the macro works with a selected object (it doesn't have to be an Excel one). If you're inserting the object via code, there would be no need to select it; instead you could set a reference to it and use that.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
formatting text in a word TextBox Object	PeterSent	Word	3	08-31-2013 09:30 AM
Linking an Excel object into Word	cncolom	Word	1	03-29-2013 03:01 PM
Excel worksheet as OBJECT in WORD not displaying	mohsin	Word	1	03-27-2012 10:43 PM
Excel VBA: How to add a reference to Microsoft Word Object Library?	tinfanide	Excel Programming	7	12-12-2011 05:21 AM
Excel File as Linked Object in Word	jfitch	Word	0	03-18-2010 11:44 AM