Excel shape position. Press Enter or click another value to make the new .

Excel shape position I changed the parentRange constraint to match with the whole program, and for the left position, I changed to "left = left + shp. AddConnector(Type:=msoConnectorTypeMixed, Shape. Support and feedback. Dim shp As Shape: Set shp = shp. Execute die Funktion zum Erstellen eines Shapes auf. Count To 1 Step -1 ActiveSheet. Dim CallingShapeName As Variant Dim CallingShapeID As Variant CallingShapeName = Dim oShape As Excel. Intermittently, when I add a shape, save and close, and then reopen the program, the shape has shifted away from its original position (mostly horizontally to the left, but sometimes vertically as well) and can also be a smaller size than originally set. I want this macro to be able to, (for example, by the simple click of ALT+A), insert a Shape (circle) on the position where your cursor is on the excel sheet. net. . AddShape(1, sleft, 130 In this article. This is what I have so far, please help! I am using Excel 2007 Is there a way of seeing or getting the exact position coordinates of a object on a worksheet, maybe a macro that can return or display the coordinates into a cell or on the clip board? The object is a option box called "OptionBox1" What I mean by exact position is the Re: Zoom Level Affects Shapes Positioning. Finally, reroute the connections (this basically makes sure that the connector is where it should be on screen, given the I'm afraid VBA Excel does not have a property able to (directly) change the shape rotation center. Modified 3 years, 6 months ago. Sie können die gewünschten Shapes einschließen – aus allen Formen im Dokument oder allen Formen in der Auswahl ausgewählt – um einen Formbereich zu erstellen. Look down the list of Macros, when you see the code called "oMove", click it and it then Click"OK" the code name will move to the Window at the top of the Box. Nachdem der Bediener dann geklickt hat, erscheint das Shape auch ordentlich auf der Seite. find size of external monitor in excel vba. Adjusting In this article. I'm using this code to find out the clicked shape's Name & ID and it's working fine:. make chart axis position low - vba. After doing this, go to Shape Format and click Group->Group. New posts Search forums Board Rules. I need to get the position (left, top) and the size (width, height) also the slide it's linked to. The row it should be in is 9. RGB will give the color of the textbox; Now comes the trickiest part. Right now, I can do this manually by having a button associated with a macro for adjusting (ShapeAdjust - see code below) and another button for resetting (ShapeReset - see I am trying to develop a VBA solution within Excel that can identify which shapes are connected to eachother within a worksheet via a standard connector line. Adjustments: Returns an Adjustments object that contains adjustment values for all the adjustments in the specified shape. Left = . Shapes Dim shp As Shape For Each shp In shc Dim sh2 As Shape Set sh2 = sh2idxzosh_shc(shp) Dim zoidx As Long ' The second argument is not actually the Index, but since we are traversing the ' whole collection, and Index and You can see that TexBox is top of Rectangle when you run the following code. Then select both the chart and the shape together by pressing Ctrl button. WIN API calls can give you the screen resolution or if you control the PC, you can hardcode it, so it's a matter of ratios; you know the position/size of the shape on the slide, you know that the 10" width of the slide becomes 1024 or howevermany pixels on screen, so it's just ratios from there. Read-only Long. Modified 6 months ago. Related. Protect Password:="test", userinterfaceonly:=True Dim shape As shape For Each shape In ActiveSheet. I have an excel workbook with two shapes on Sheet1 like below My Requirement is when the user is navigating towards right side of sheet i. How do we set the position of an Excel chart from C#? 2. Next is the x position, which we want all the way to the right of the graphic, so we add the shapes position left to the width of the shape. Comment If Not cmt Is Nothing Then With ActiveWindow. 5 pt. Range("I1"). To reproduce the bug, please right click on a sheet name > View code > and paste the VBA code in the sheet VBA editor. Syntax. Visible = True End With I have a well working VBA script that when a target cell with the value, "Click to Learn More" is clicked, a corresponding informational pop-up shape is made visible. If your "semi transparent" object is a "Shape", then depending on what your definition of not touching anything is, and if you have no objections to using VBA, then I would say yes. Ask Question Asked 8 years ago. SlideRange. Top. ChatGPT-Logo: Über das ChatGPT-Logo gelangst Du zur KI-Hilfe (Custom GPT) des Excel Forums. Modified 9 years, 9 months ago. Many thanks for the compliments Dave & thanks also to Andy for the code. Have questions or feedback about Office VBA or this documentation? I have a code that creates shapes on top of shapes, I would like it to create shapes next to each other and not on top. Locked = True Next ActiveSheet. blogspot. AddTextbox(msoTextOrientationHorizontal, posx, posy, lenx, leny). 25 is the width & the second is the height, but crucially they Is it possible to lock/disable a shape (or a group of shapes) on a worksheet so that users can not select it, or interact with it in anyway. For example, in the snippet attached, I need to create a code I have an excel workbook with two shapes on Sheet1 like below My Requirement is when the user is navigating towards right side of sheet i. expression A variable that represents a I have around 100 shapes on the excel sheet to drag around. Read/write String. Modified 4 years, 9 months ago. So, I need to extract the cell coordinates of arrow start and end, using Python. Viewed 2k times 0 . You can be inspired from It can be done in a little more complicated way making some calculations. Excel Chart Fixed Position. Fixed axis in Excel chart. Position Chart relative (over or under) another chart in VBA. Select / name / move newly pasted shape (Excel VBA) Ask Question Asked 5 years, 4 months ago. Viewed 3k times 0 . A Excel VBA Chart Auto Shape Top Left Position. Both computers are running Excel 2013 on Windows 7. what i am asking is your code is running when the values in the cells A1 and B1 are changed In a previous post I read, it mentioned that it's possible to specify absolute coordinates for an excel shape e. 4) scan all shapes in worksheet, take their excel position and calculate their pixel position. Towards headers24, header25 and so on ,I want the two shapes on the sheet I have an shape pasted into a worksheet, its a rectangle with curved corners and its left edge is on the left of column Q and its top is on the bottom of row 11. AddConnector (Excel) Erstellt einen Connector. Remarks. Placement. Delete Next i 'Add a Rectangle With ActiveSheet. Shape placement and shape counter. Ce tutoriel présente de façon concise ce qu’il est nécessaire de connaître pour manipuler les formes par programmation VBA. SelectAll in order to select all shapes on the sheet. Dim oShape As Shape Set oShape = ActiveSheet. Locked = True Next End Sub or you build a plugin for Excel in dot. defining vba chart location of Chart Using VBA. Sub ActiveSht_UnProtectShapes() 'Aug 19, Position a shape in Excel based on its center point. ActiveWindow. On the Shapes tab, select the Returns or sets an XlPlacement value that represents the way the object is attached to the cells below it. Select the shape you want to resize. So as Dave says, zoom doesn't affect offset value per se, but the position of shapes layers relative to cell layers. So when ever these values change dynamically not manually, the position of the respective shape ( rectangle) should change accordingly. AddChart2() Dim oChart As Excel. ForeColor. Select the shape you want to arrange. Shapes(3). Here is my code for I have a Problem by copying and pasting a shape in same Excel File. Read-only. Shapes(1). Shape picture goes to unexpected position, even with correct Private Sub Workbook_Open() ActiveSheet. Shapes("Flowchart: Decision 3") Dim oCell As Range Set oCell = ActiveSheet. I noticed that Shape. Fixed range Hello - I've used Record Macro in Excel 2016 to get the VBA code to move Shapes (Ovals, Triangles, etc. Includes a manual approach using the Alignment tools built into Excel. Set myDocument = Worksheets(1) With myDocument. Possible return values are xlFreeFloating - Object is free floating, xlMove - Object is moved with the cells, xlMoveAndSize - Object is moved and sized with the cells. Therefore I replaced each ActiveX Button with a rectangular shape assigning a macro to each shape: My VBA-shape with Dim myShape As Shape Set myShape = Me. Returns. Excel VBA moving Shapes to a column. Shapes s. I have tried adding a I'm seeking a way to get a clicked shape's address (position/location) on it's spreadsheet. You can help keep this site Needing some help attaching an Excel/VBA button on an Excel sheet. AddChart(ChartType, Left, Top, Width, Height) ChartType - xlcharttype enumeration Left - the position of the left corner of the chart relative to the anchor (in points) I am replacing all my ActiveX controls with Excel shapes, because of this well know problem. On the Sub dump_shapes() ' Dump information on all shapes in a Shapes collection Dim shc As Shapes Set shc = ActiveSheet. Even Excel knows this is an untenable position. Wenn Sie eine Verbindung mit einer Form verbinden, werden die Größe und Position der Verbindung bei Bedarf automatisch angepasst. eine Sammlung ShapeRange erstellen, die die ersten drei Formen in einem Dokument, alle ausgewählten Formen in einem Dokument oder alle Freihandformen in einem What This Does. Towards headers24, header25 and so on ,I want the two shapes on the sheet L’un des aspects le plus remarquable d’EXCEL réside dans sa capacité à dessiner une multitude de formes graphiques plus ou moins complexes, de pouvoir gérer leurs tailles, leurs couleurs, leurs positionnements, leurs comportements. Shape. AlternativeText: Returns or sets the descriptive (alternative) text string for a Shape object when the object is saved to a Web page. slideindex). Adjustments(1) - 80", so that the code return a value of a cell at exactly the end of the callout. As an example of moving a shape, the few lines of code below would move a shape called "PartsButton1", to position that is dependent on the row of the ActiveCell. moving shape from previous worksheet to current worksheet. Click a cell in Intermittently, when I add a shape, save and close, and then reopen the program, the shape has shifted away from its original position (mostly horizontally to the left, but sometimes vertically as well) and can also be a smaller size than originally set. They look like shown here. Verwenden Sie die ZOrderPosition-Eigenschaft, um die aktuelle Position eines Shapes in der Z-Reihenfolge zu bestimmen. expression. See Excel. Many Use Excel VBA to fix Word shape in position on page, exactly where it was pasted. Select view Sheets("Robot"). So können Sie z. 58 Shp. Application: Returns an Application object that represents the Microsoft Excel application. In order to select two specific shapes, you can use the next way: Dim sel As ShapeRange Set sel = ws. Is there anyway to keep a chart visible whilst I am using the following lines of VBA to set the size/position of an Excel selection I just pasted into PowerPoint: Set Shp = _ PPApp. I have two Sheets in one Excel file,in sheet "Tabelle 1" there is only one Picture, which i assume automatically gets the Name as "Picture 1". My hope is that I'll be able to add code that realigns the shape's right edge to the target cell's left edge, preferrably centered vertically as with the screenshot example. Left. 75, msoCTrue Shp. Data sample. Macro dialog box appears. Left End With End Sub (use the real name of the button instead of "putthenamehere") Rightclick on the worksheet that should have this behavior. Is this possible to do in some way Forums. For example, Moves the specified shape up or down the collection's z-order, which shifts it in front of or behind other shapes. 0. Left + . VBA-shape with I am very new to VBA, and I have a ppt presentation, where I need to get all the shapes from the slides. g. textbox moves to the top of last page in word document vba macro. ScaleWidth 0. Ich möchte jetzt jedoch das Shape von Aussehen her verändern, weiß jedoch nicht so recht wie ich das anstellen soll. Select In order to use your specific way (shp & shp1), you must name them after creation. ScaleHeight 0. You can vote as helpful, but you cannot reply or subscribe to this thread. Shape. e. 2. 25 is the width & the second is the height, but crucially they Shapes. Top = oCell. The script shall transfer all the information from the old templates (about 150) to the new template format Add a connector shape, as you would do a line. Returns or sets an XlPlacement value that represents the way the object is attached to the cells below it. Text will give the content of the textbox; Shape. Do this for each shape. Ever have an instance where you have a TON of shapes or images on your spreadsheet and you need to change the Object Positioning property for all of them? It can be a hassle to individually select all How could I lock all the shapes & pictures on an excel worksheet(s) so that user can't edit/delete them? Note : Excel sheet must be unprotected in all respect so that the user can work on that sheet freely. Preferably, I need this on the bottom left or right of the screen. There is only "Top" and "Left" From Excel get the dimensions Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cmt As Comment Application. Have questions or feedback about Office VBA or this documentation? Example. This will allow you to keep the dimensions of your images and shapes while allowing Hinweise. In this article. 6 I would like to get accurate Shape position in Excel. I've added a shape to the chart with: I am trying to extract some records from an excel file. Use Excel VBA to fix Word shape in position on page, exactly where it was pasted. It's just not in the correct location. Returns the position of the specified shape in the z-order. Cells(ActiveWindow. Is it possible to position a shape by its center point? I'm trying to overlay Dim s As Shape Dim i As Integer Dim sleft As Integer Const sWidth As Integer = 100 Const sHeight As Integer = 200 Dim ws As Worksheet Set ws = Sheets("sheet1") For i = 0 To 4 sleft = i * sWidth 'add a shape 'Positions (type of shape, Start Position from left, Start Position from Top, Width, Height) Set s = ws. TextFrame2. Slideshow view will fill the screen with your slide. VisibleRange cmt. Fill. Nodes pointsArray = . No columns or rows have been Re: Positioning Shape Objects in VBA. I have tried pasting and positioning manually but its a bit of a headache. VBA - Shape A position next to shape B position hrayani; Jan 16, 2022; Excel Questions; Replies 4 Views 1K. Chart Set oChart = oShape. Top is being disturbed by Windows Display Zoom settings. 6 Ich rufe in einem Modul mit CommandBars. Where to move the shape in the z-order stack relative to the other shapes. Chart Shapes. using Magnification API in VBA to get the screen magnification. Most of the computers in our Office don't have this problem. Top = . The movement is achieved by calling a procedure repetitively after a ce Try ws. Beispiel. Shapes("putthenamehere") With Me. I have gotten the VBA code to move the shape whenever the value changes, and it works fine if I set a specific column to move the shape to, but I cannot get the shape to match the value in U51 to the column. If I select the range 'make a copy of the label image and refer to it with a variable for convenience Sheets(ImageSheet). if Col A value says 25/02/13 then I want 1 – Add Shapes to Dashboard. Jan 16, 2022. Paste Dim Hi, I am using a spreadsheet to show a plan and as such have a series of dates in a header row representing week ending dates, starting in Column B. Ask Question Asked 6 years, 5 months ago. Placement (Excel) Returns or sets an XlPlacement value that represents the way the object is attached to the cells below it. In this video we will see how to move shapes in an Excel worksheet using VBA macros. Shapes. Viewed 2k times 4 . The slicers will still be overlapped. 5. Top = 1. STEP 1: Hold the CTRL key and select all of the shapes you want to move: STEP 2: Go to Format > Arrange > Align > Align Bottom. Although a little verbose (not too long, if you delete all lines for writing variables to Re: Positioning Shape Objects in VBA. Ask Question Asked 9 years, 9 months ago. You can be inspired from this (old) . It's as if the coordinate grid is slightly different between the two computers. Returns or sets a Single value that represents the distance, in points, from the top edge of the topmost shape in the shape range to the top edge of the worksheet. Tell it which shape to begin at. Excel 2007 introduced this syntax. These both cell values that which gives the position to the inserted shape (rectangle) in the excel sheet. H. DisplayCommentIndicator = xlCommentIndicatorOnly Set cmt = ActiveCell. We need to distribute them evenly. ScrollColumn) myShape. The following VBA code creates a dashboard worksheet in the current workbook and adds two rectangles with AddShape and two labels to it thereafter. This enables you to set the shapes TOP property relative to the cell's Top and the shape's Left property relative to the cell's Left. Live-Forum: Dieser Link führt Dich direkt zu unserem Live-Forum, wo Du jederzeit eine neue Frage stellen können. Shapes(3) Shp. VBA Position Chart in Excel 2010. Since there is no mouse event for the shape, we will get the I have a group of shapes and I can currently move it to the top left edge of a reference cell however I need the middle of the shape to line up with this left edge. This example moves node two in shape three on myDocument to the right 200 points and down 300 points. The shapes can be rectangular callouts or pictures. 2nd. The value it should match to is in cell U51. Placement = xlFreeFloating People facing problem making shape/text stick to the chart with newer versions of Excel (2016 and above), try inserting a shape while the chart is already selected. In other words, I want to get the address of the shape which is clicked on the worksheet. Name)) sel. ShapeZOrder): void; Parameters. com/p/excel-vba-objects-guide. Left = I am trying to make a printable report from excel sheet with some shapes such as charts and pictures. Eg. Shapes. Press Enter or click another value to make the new I want to learn how to draw a shape (an arrow) inbetween two specified cells. In order to know the Excel tip to prevent buttons, shapes and objects from resizing, first let us insert a shape on the Dashboard. You will need to then right click each shape, Select "Assign Macro ". Now when you click a Shape then Click a cell the Shape will move over the Cell. Shapes("maturity"). Filling Modules in a Trapezoid Shape Using Excel VBA excelnoob192; Sep 2, 2024; Excel Questions; Replies 1 Views 256. 3. I believe you are familiar with them. What I am hoping to do is select any of the shapes , one at a time, and then click the cell I want it to be placed at Learn how to evenly space, align, and distribute shapes, charts, slicers, etc. AddShape(msoShapeRectangle, Left:=90, Width:=200, Top:=80, Hi I am trying to get the screen position of a text box so I can draw an arrow to it I created it using: ActiveSheet. ShapeZOrder. I've tried recording a macro whilst moving a shape around but to no avail, see below, Thanks a lot for quick responses. Last is the y position, first point we want in the topmost Cursor X and Y locations in excel are found using a combination of screen resolution and relative position of cursor in Excel window - This is closer to what i want as i am not having to select a range but the issue is the shape is not inserted at the precise location. in the Show group, click Task Panes, and then click Size & Position. ah, i didn't realise that the problem lie may lie in drawing objects being on a different layer of the sheet than the cells. Width * shp. AddConnector (Type, BeginX, BeginY, EndX, EndY) Dim shpAddConnector As Shape Set shpAddConnector = ActiveChart. Enter the width and height values for the shape. Width - 20 cmt. Top oShape. Milestone worksheet c5 = June 14, triangle should be placed one row I want to copy all shapes from one worksheet and paste them on another worksheet at the same position. Hinweise zu den im Bild nummerierten In a previous post I read, it mentioned that it's possible to specify absolute coordinates for an excel shape e. Modified 1 year, 6 months ago. I manage to find a fonction that get the absolute coordinate of your cursor on your First argument is the node index. The slicers will all be aligned to the top of the slicer with the highest position on the sheet. This blog describes how you would do that for shapes and there you can use events to overide the delete. You can play with 'Pt_2 height from bottom rectangle', see what is happening and adjust the code to keep the Hello, I want to return the position value of a shape and place it into a cell automatically whenever it is moved. SelectAll Selection. Value 'the value of Range("I1) will be a text saying which cell the shape will go to. ShapeZOrder for details. typ = TypeName(Selection) If typ = When you draw, resize, or move a shape or other object in Excel, you can set it so that it will align or "snap” to the nearest intersection in the grid (even if the grid is not visible) or snap to other shapes or objects. oShape. expression A variable that represents a Shape object. Copy i = Sheets(ImageSheet). 4. Shape Set oShape = ActiveSheet. Protect Password:="1230" End Sub. In case anyone else is interested, I modified the code slightly as I wanted the starting point to be at a specific cell and then to define the size, so I ended up with the following, where the first 26. Range("A51"). It makes them stick together, worked for me. This will allow you to keep the dimensions of your images and shapes while allowing them to move with the spreadsheet when you change its size, or to freeze them in place. Select But later in the code I can;t sem to find any way of determining it position However, if I select the shape and message box its left and top property it shows the correct numbers. FindControl(ID:=1177). Fluff. To set the shape's position in the z-order, use the ZOrder method. Tell it which shape to end at. yes only performing function on 50% or 100% is possible. ZOrderPosition. I'm currently using the following Excel VBA to paste 1-3 shape(s) into a Word document at the position(s) I need, however, they are not fixed to the position I need, and thus get moved Connect and share knowledge within a single location that is structured and easy to search. In diesem Beispiel wird in myDocument eine Ellipse eingefügt und anschließend an der vorletzten Position in der Z-Reihenfolge positioniert, wenn in dem Dokument noch mindestens eine weitere Form existiert. ) to different position and then return to it's original position. The shape is called CO5. position Excel. I have a chart in Excel. The issue happens with both Excel 97-03 and Excel 2007 files. Placement. ActivePresentation. It can be done in a little more complicated way making some calculations. Those milestones should be properly referenced on value based on plan worksheet. S Private Sub Workbook_Open() ActiveSheet. Top myShape. I've tried recording a macro whilst moving a shape around but to no avail, see below, I'm afraid VBA Excel does not have a property able to (directly) change the shape rotation center. I am able to put the charts on the sheet using the below code: oSheetReport. How to stop Images and Shapes from resizing in Excel when you change the size of rows and columns. ScrollRow, ActiveWindow. I'm trying to move a group of pictures in Excel with VBA, this works fine, but I want that the user can see how the picture is moving. rectangle. Shapes(i). Ask Question Asked 4 years, 9 months ago. Copy Works. For Each s In ActiveSheet. The arrow in Row 5 is an inserted shape, that indicates that text in E5 is to be used for cells that the arrow covers (in the image, F5 to I5). When this position is selected, the chart scrunches up into the opposite corner, and the chart’s text autoshrinks to 5. I have a template in Excel, where the layout changes from time to time. We have a great community of people providing Excel help here, but the hosting costs are enormous. Excel Shape position disturbed by Windows Display Zoom settings. Top + 1 cmt. Returns or sets a Single value that represents the distance, in points, from the left edge of the object to the left edge of column A (on a worksheet) or the left edge of the chart area (on a chart). xxxxxxxxxxxxxxxx. setZOrder(position: Excel. Excel-Logo: Das Excel-Logo führt Dich immer direkt zur Verzeichnisübersicht des Forumarchivs. To arrange a shape or reorder a shape - moving it in front of, or behind, other objects on the slide - follow these steps. Slides( _ PPApp. I am using the following lines of VBA to set the size/position of an Excel selection I just pasted into PowerPoint: Set Shp = _ PPApp. SetPosition 2, currXvalue + 200, currYvalue + How to stop Images and Shapes from resizing in Excel when you change the size of rows and columns. B. Shapes(2). When you change the font to a legible size, like 8 pt, the As in 1st image are milestone which is in milestone worksheet and 2nd image is of the plan worksheet where triangle shape on the bar is to be moved with the reference Dates (C5) from milestone worksheet. Selection. Name, ws. and gives a white background overlaying the other text on the sheet. how to get the relative position of shapes within a worksheet. This thread is locked. AddChart. 'Get mouse cursor position in screen pixels GetCursorPos CursorPos 'Set Hi everyone, I have a shape "Rounded Rectangle 3" that I use to run a macro when clicked, it works great but the page is big and there's a lot of scrolling up and down the page, normally id put the shape in the top column and freeze the row so as I scroll up and down the button is always visible but on this sheet this is not possible, so I was wondering if there Get an overview of shapes in Visio with this quick-start guide to selecting, moving, formatting, copying, and adding text to shapes. htmlW You can still get there. TextRange. It's for a little game, a "Horse Race". See more Here is an easy way to determine if a range or Shape has been selected and if it is a Shape, where it is: Dim s As Shape, typ As String. Learn more about Labs . I would like to copy this Picture and paste it to a sheet called "Overview" which is in same Excel file with "Tabelle 1". I need it to stay in the same position on the screen regardless of how I scroll or zoom. Excel VBA: Copy and paste shapes at same position. xls file and its VBA code. Points currXvalue = pointsArray(0, 0) currYvalue = pointsArray(0, 1) . Have questions or feedback about Office VBA or this Hi everyone, I am fairly new to all this excel programming and I have a question concerning a macro I want to program in excel. hrayani. But it makes the pasted image one large image, not x small images/shapes. Moving a Shape in a Workbook. The TopLeftCell property is read only but Get the Excel VBA Objects Guide for Intermediate with extended and revised content here: https://excelmacroclass. Shapes also have a property called TopLeftCell which returns a range object, to wit, the cell under the shape's own TOP/Left corner. I want to position a shape to represent a milestone based on a date I enter into a cell in Column A i. Shapes shape. I have multiple sheets and I want this rectangle to be in exactly the same position on them. Shape three must be a freeform drawing. Shapes have Top and Left properties. Left = 0. Sep 2, 2024. Luckily we can use a Discover how to align and group shapes in Excel! Learn how to use the 'bring the front' and the 'send to back' functions. Excel VBA Chart Auto Shape Top Left Position. Viewed 288 times -1 . You can Align the shapes to the direction that you It can be a hassle to individually select all the shapes on your spreadsheet (especially if you have a large amount) and tweak their object settings. 1. A shape's position in the z-order corresponds to the shape's index number in the Shapes collection. You can still get there. Width - cmt. un-protect all shapes in active sht. Count Sheets(ImageSheet). Juan: I made a small modification on the code. Learn more about Teams Get early access and see previews of new features. Public Sub Macro1() 'Delete all shapes For i = ActiveSheet. Item(2). Range(Array(ws. szja tkfdnk gymhi ibvrqhj ckkw puhs cmafpa fvilez rcqurf pemgzy