Move shape back to previous position vba if outside defined range

[Akanjana]

Q1. I have few rectangle shapes in cell "B3". and "B3" is label design area. if shape is moved outside cell "B3" then i need to show warning and move back selected shape to previous position from where it was moved. Therefore shape stay within design area and get printed properly. i tried following codes.

Sub UndoShapesMoveOutside() 'if moved outside Design area
Dim shp As String, Adr As String

shp = Selection.Name
    Adr = "B3"

Set Rng = Range("B3")

If ActiveSheet.Shapes(shp).Top <> Rng And ActiveSheet.Shapes(shp).Left <> Rng Then
        'EnableEvents = False
        '.Undo
        '.EnableEvents = True
        '.SendKeys ("^z")

        MsgBox "Textbox is outside Design Area"

    With ActiveSheet.Shapes(shp)
        .Top = Range(Adr).Top
        .Left = Range(Adr).Left

    End With

    End If

End Sub

Above codes are not working as per my requirement. kindly check.
Q2 . Additionally, how i can adjust zoom size of sheet based on on column and row with of cell "B3" in inches in page layout mode with vba ?
Thank you
excel vba excel-vba

 

[Akanjana]

Set Rng = Range("B3")
rrow = Rng.Row
rCol = Rng.Column
If ActiveSheet.Shapes(shp).TopLeftCell.Row <> rrow Or ActiveSheet.Shapes(shp).TopLeftCell.Column <> rCol Then
MsgBox "outside cell"
Application.SendKeys ("^z")
End if
But SendKeys is not effective solution.

 

[Fluff]

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Please supply all relevant link(s). Thanks

 

[Akanjana]

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Please supply all relevant link(s). Thanks

I posted it in excelforums.com. I was not knowing the rules. I will take care of it. can you please help with this.

 

[Fluff]

Please supply a link to the actual post.
Also you need to supply to ALL other sites where you have asked this question

 

[Akanjana]

Please supply a link to the actual post.
Also you need to supply to ALL other sites where you have asked this question

I remember I, deleted the post from there as I didn't get a reply. Excel Help Forum

 

[Fluff]

Ok, that's fine, but can you please update your other threads to include cross post details, where needed.

 

[Akanjana]

Ok, that's fine, but can you please update your other threads to include cross post details, where needed.

Sure I 'll do. can you please help me now with this thread?