Скачать или смотреть How to Combine Shapes Using VBA in Excel

Disclaimer/Disclosure: Some of the content was synthetically produced using various Generative AI (artificial intelligence) tools; so, there may be inaccuracies or misleading information present in the video. Please consider this before relying on the content to make any decisions or take any actions etc. If you still have any concerns, please feel free to write them in a comment. Thank you.
---

Summary: Learn how to combine shapes in Excel using VBA. This guide provides step-by-step instructions for merging shapes programmatically, helping you automate your Excel tasks efficiently.
---

Combining shapes in Excel using VBA can streamline your workflow, especially when dealing with repetitive tasks. By using VBA (Visual Basic for Applications), you can automate the process of merging shapes, saving you time and effort. This guide will walk you through the steps required to combine shapes using VBA in Excel.

Getting Started with VBA in Excel

Before you start combining shapes, ensure that you have access to the Developer tab in Excel. If it's not visible, you can enable it by following these steps:

Go to File > Options.

Select Customize Ribbon.

Check the Developer box on the right pane.

Click OK.

Writing the VBA Code to Combine Shapes

Here's a step-by-step guide to creating a VBA macro that combines shapes in Excel:

Open the VBA Editor:

Press ALT + F11 to open the VBA editor.

Insert a New Module:

In the VBA editor, go to Insert > Module. This will create a new module where you can write your code.

Write the VBA Code:

Copy and paste the following VBA code into the module:

[[See Video to Reveal this Text or Code Snippet]]

Explanation of the Code

Define Variables:

shp1 and shp2 are used to store the shapes you want to combine.

combinedShape will store the new combined shape.

ws represents the active worksheet.

Set the Worksheet and Shapes:

Set ws = ActiveSheet assigns the active worksheet to the variable ws.

Set shp1 = ws.Shapes("Rectangle 1") and Set shp2 = ws.Shapes("Oval 1") assign the specific shapes to be combined.

Combine the Shapes:

Set combinedShape = ws.Shapes.AddShape(msoShapeRectangle, shp1.Left, shp1.Top, shp1.Width + shp2.Width, shp1.Height) creates a new shape with dimensions that encompass the original shapes. This example creates a rectangle that covers the area of both original shapes.

Delete Original Shapes:

shp1.Delete and shp2.Delete remove the original shapes from the worksheet.

Running the Macro

To run the macro:

Close the VBA editor.

Press ALT + F8 to open the Macro dialog box.

Select CombineShapes and click Run.

Customizing the Code

Shape Types:

The code above uses a rectangle and an oval as examples. You can change "Rectangle 1" and "Oval 1" to the names of the shapes you want to combine.

Combined Shape:

Adjust the parameters in the AddShape method to change the type and dimensions of the combined shape.

Conclusion

By following this guide, you can efficiently combine shapes in Excel using VBA. This method is particularly useful for automating tasks and enhancing your productivity. Experiment with different shapes and customize the code to fit your specific needs.