![]() |
|
#1
|
||||
|
||||
![]()
Based on your example I suspect you want
Code:
Sub Macro1() Dim ocell As Cell Dim oInlineShape As InlineShape Dim oShape As Shape Set ocell = ActiveDocument.Tables(1).Cell(1, 1) Set oInlineShape = ocell.Range.InlineShapes(1) Set oShape = oInlineShape.ConvertToShape oShape.Rotation = 360 oShape.ConvertToInlineShape Set ocell = ActiveDocument.Tables(1).Cell(3, 1) Set oInlineShape = ocell.Range.InlineShapes(1) Set oShape = oInlineShape.ConvertToShape oShape.Rotation = 360 oShape.ConvertToInlineShape Set oInlineShape = Nothing Set oShape = Nothing Set ocell = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#2
|
|||
|
|||
![]()
This is awesome!
So I am guessing your code targets specific lines(1 and 3)? But reality is that I always have 50+ lines like those with rotated text and they follow an irregular rule(example: lines 1,2,3,13,15,22,57..etc) I would have to count all the line numbers and paste them in the code? |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
new_bie | Drawing and Graphics | 5 | 01-19-2016 04:11 PM |
![]() |
Barbee | Word | 3 | 01-21-2015 12:03 PM |
![]() |
markg2 | Excel | 2 | 04-23-2014 05:12 AM |
![]() |
chrislewis | Word | 3 | 07-22-2013 08:33 AM |
![]() |
ramsgarla | Word VBA | 9 | 12-05-2012 03:23 AM |