Inlineshapes how resize?

Question

We have word document that contain inlineshape object in Excel worksheets format

how with vba code resize this inlineshape? I mean resize without stretching visible picture. Scaleheight do not work.

Answer 1

You have to set ScaleHeight and ScaleWidth to the same number, e.g.

With ActiveDocument.InlineShapes(1)
    .ScaleHeight = 150
    .ScaleWidth = 150
End With

(this is from the Word help), or

    Dim DesiredHeight As Single
    Dim Factor As Single
    DesiredHeight = Application.CentimetersToPoints(5)
    With ActiveDocument.InlineShapes(1)
        Factor = DesiredHeight / .Height * 100
        .ScaleHeight = Factor
        .ScaleWidth = Factor
    End With

---

Regards, Hans Vogelaar

Answer 2

You have to set ScaleHeight and ScaleWidth to the same number, e.g.

With ActiveDocument.InlineShapes(1)
    .ScaleHeight = 150
    .ScaleWidth = 150
End With

(this is from the Word help), or

    Dim DesiredHeight As Single
    Dim Factor As Single
    DesiredHeight = Application.CentimetersToPoints(5)
    With ActiveDocument.InlineShapes(1)
        Factor = DesiredHeight / .Height * 100
        .ScaleHeight = Factor
        .ScaleWidth = Factor
    End With

---

Regards, Hans Vogelaar

I need resize only the height of the worksheet, it's exist some-thing like above? 

for example, if I activate inlineshapes manually by double click- I can move bottom border up-down and set it position, how make this action with VBA? To use macrorecorder do not help

Answer 3

So you want to increase the number of rows that is displayed? According to Word MVP Cindy Meister, who knows far more about this than I, that is not possible using VBA. See Resize an embedded excel OLE object in Word programattically.

---

Regards, Hans Vogelaar

Answer 4

---

Regards, Hans Vogelaar

Yes, increase the number of rows that is displayed. I create document from .dot file and after that by vba insert some rows in then inlineshapes, but after that I need to display added rows (or resize ole object).

Thank you  for attention and link,

the question is open still, it sadly if that impossible using VBA((