Search results
26 mar 2014 · To get a Shape by Name, you do...: Function getShapeByName(shapeName As String, Slide As Integer) Set getShapeByName = ActivePresentation.Slides(Slide).Shapes(shapeName) End Function Dim myshape As Shape myshape = getShapeByName("Rectangle 42", 1)
18 paź 2022 · To create a shape object in Excel using VBA, you must call the AddShape function. The AddShape function has 4 required inputs in order to generate a new shape: Type - Name of the type of shape you wish to generate. Left - Where on the spreadsheet the left side of the shape should be located.
20 sty 2017 · Dim i Dim rngStory As Word.Range For Each rngStory In ActiveDocument.StoryRanges For Each i In rngStory.ShapeRange Debug.Print rngStory.StoryType & ": " & i.name Next Next. The problem was that activedocument.shapes only returns shapes in the main story.
29 mar 2022 · Use Shapes (index), where index is the shape's name or index number, to return a single Shape object. The following example sets the fill to a preset shade for shape one on myDocument. VB. Copy. Set myDocument = Worksheets(1) myDocument.Shapes(1).Fill.PresetGradient _.
12 sty 2010 · Two properties of the Shape object will be used in the code samples below – Shape.Type and Shape.AutoShapeType. Excel has a broad range of shape Types consisting not only of AutoShapes, but also connectors, lines, pictures, charts, comments, and many other graphical items.
Shape names are a bit strange in VBA, and are not necessarily unique. Rather than trying to understand the rules, the simplest thing is to generate and assign unique names yourself for shapes that you've created programmatically.
How do you get the shape name or graphic ID of a rectagle or group? The following code will return the Shape.Name of the selected shape in a message box. I used ctrl-i for mine. Sub get_Shape_Name () Set theShape = Selection.ShapeRange. shapeName = theShape.Name. MsgBox ("Shape Name = " & shapeName) End Sub.
