View Single Post
 
Old 11-24-2020, 04:21 PM
AnonA2 AnonA2 is offline Mac OS X Office 2011 for Mac
Novice
 
Join Date: Nov 2020
Posts: 1
AnonA2 is on a distinguished road
Default Word Mac 2010 VBA Draw shape shortcut, irregular shape, draw without graphics tablet like in paint

I'have searched for an answer and there is none. I ask for the simplest answer without specifying document.
For now I lean toward using repeater or applescript + MouseTools as there is no keyboard maestro 6-7. For selecting shape from toolbar.
This works for me but on word 2016 on pc:
Code:
Sub selirrshape()
SendKeys "%{4}"
Application.OnTime Now + TimeValue("00:00:01"), ìNameOfMacroToRunì
SendKeys "{Down}"
Application.OnTime Now + TimeValue("00:00:01"), ìNameOfMacroToRunì
SendKeys "{Enter}"
End Sub
On mac there's no shortcut to draw irregular shape or to navigate through toolbar or sth?
I have tried this:
Code:
ActiveDocument.Shapes.AddShape msoShapeNoSymbol, 50, 50, 200, 200
This produces however predefined shape only. I want to draw shape without clicking in toolbar.
Generally I want to draw like in notebook in word ("like in paint").
Reply With Quote