Move a shape [VBA]
This post shows you how to move a shape with vba code. Select a cell (button name) and the arrow instantly points to the button. I made a simple picture from an old remote I found.
VBA code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 42"))
If Not Intersect(Target, Range("F5:F13")) Is Nothing Then
.Visible = True
.Left = ActiveCell.Offset(0, 1)
.Top = ActiveCell.Offset(0, 2)
Else
.Visible = False
End If
End With
End Sub
- Right click on sheet name
- Click on "View Code"
- Paste code to sheet module
- Exit VB Editor
Download excel *.xlsm file
This article demonstrates a macro that copies values between sheets. I am using the invoice template workbook. This macro copies […]
Open Excel files in a folder [VBA]
This tutorial shows you how to list excel files in a specific folder and create adjacent checkboxes, using VBA. The […]
Split data across multiple sheets [VBA]
In this post I am going to show how to create a new sheet for each airplane using vba. The […]
Working with COMBO BOXES [Form Controls]
This blog post demonstrates how to create, populate and change comboboxes (form control) programmatically. Form controls are not as flexible […]
Identify missing numbers in a column
The image above shows an array formula in cell D6 that extracts missing numbers i cell range B3:B7, the lower […]
Change chart data range using a Drop Down List [VBA]
In this article I will demonstrate how to quickly change chart data range utilizing a combobox (drop-down list). The above […]
This workbook contains two worksheets, one worksheet shows a calendar and the other worksheet is used to store events. The […]
Run a Macro from a Drop Down list [VBA]
This article demonstrates how to execute a VBA macro using a Drop Down list. The Drop Down list contains two […]
How to create an interactive Excel chart [VBA]
This article describes how to create an interactive chart, the user may click on a button or multiple buttons and […]
What's on this page Copy a file Copy and rename a file Rename a file List files in a folder […]
7 Responses to “Move a shape [VBA]”
Leave a Reply
How to comment
How to add a formula to your comment
<code>Insert your formula here.</code>
Convert less than and larger than signs
Use html character entities instead of less than and larger than signs.
< becomes < and > becomes >
How to add VBA code to your comment
[vb 1="vbnet" language=","]
Put your VBA code here.
[/vb]
How to add a picture to your comment:
Upload picture to postimage.org or imgur
Paste image link to your comment.
English
Spanish
HI Oscar,
How did you decide LEFT & TOP pixel..
If I insert a Picture in Sheet.. how can I decide its Left & Top Position..
Regards,
=DEC2HEX(3563)
Debraj Roy,
Assign the following macro to your shape:
Sub Position() With ActiveSheet.Shapes("Straight Arrow Connector 42") MsgBox "Left: " & .Left & " Top: " & .Top End With End SubClick the shape and a message box shows the coordinates.
You don't have to create a macro to get that information; simply select the shape then, with the shape still selected, go into the VB editor (ALT+F11) and execute this in the Immediate Window (press CTRL+G if you do not see it)...
Thank you for commenting!
Just wanted to point out that you can simplify this line of code...
With ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 42"))to this...
With Shapes("Straight Arrow Connector 42")The one thing about this that may surprise people (it was a surprise to me) is that Shapes does not require a direct reference to the worksheet object that contains it (like it does if you try to use Shapes in a General code Module). My guess at why is because, being the code is located in a [b]Sheet[/b] Module, Shapes can only be defaulting to it.
Rick Rothstein (MVP - Excel),
Thanks for sharing!
[…] Read more: Move a shape (vba) […]