Move Shape Across Screen

Dec 24, 2007

I'm trying to write some VB to draw a line shape and then move it across the screen. I have managed to draw the line and have used the following code to move it:

Set linetest = ActiveSheet.Shapes(1)
For iCount=1 To 100
linetest.Left = linetest.Left + 1
linetest.Top = linetest.Top + 1
Next

i) I can only actually see the line move if I run the code using the debugger and step through the loop. If I just run the code then I only see the end position of the line (note, this is not an issue with the calculation being too fast for Excel to display the line. I tried the code with a delay loop in it and it made no difference). I can get it to work by calculating the active sheet for each iteration of the loop, but this means I have no control over the speed of the movement; incidentally it moves very slowly).

ii) This seems a poor way to move the line. Is there anyway to move the start and end node of the line rather than using the left, top, width and height properties (i.e. can I get the old coordinates of the points and set them to different numbers)?

View 5 Replies


ADVERTISEMENT

Lock Shape Position On Screen

Feb 15, 2007

I created a shape (rectangle). I assigned a macro to it, to activate another worksheet.

Can I fix the position of the shape on the screen, near the top. I have 700 rows in the worksheet and I want this rectangle always visible, near the top.

View 4 Replies View Related

How To Move A Pasted Shape

Mar 2, 2013

I Have several images on Sheet 1, I can copy the needed Images to sheet 2 as needed.

Once the image is pasted to sheet2 how do I assign it to a shape variable so that I can position it as desired.

I do not want to have to use Sheet2.(Range("B2").activate or similar

I'm looking to use

Shp.top = 25
Shp.left =15

Code:

Sub Macro1()
Dim Shp As Shape
Sheet1.Shapes("Picture 1").Copy
Sheet2.Paste

'To set the shape variable to the shape on sheet2

Set Shp = "WHAT GOES HERE"
Shp.Top = 25
Shp.Left = 15
End Sub

View 4 Replies View Related

VBA Macro To Move Shape Around Spreadsheet

Dec 16, 2009

I am trying to write a set of code, part of which involves moving a shape around an excel spreadsheet in a square shape within a certain range. It is based on a random number generator. The shape moves a number of cells to the left/right/up/down depending on the random number (d) multiplied by 16. If the shape reaches a row or column border point, it will change direction but continue moving in the new direction until it has gone as far as was determined by the random number (*16). I have some code which works fine... to a point! The shape starts out, reaches a right hand border, changes direction to go up, reaches another border, changes again and goes left, but then when it comes to change dorection the 3rd time and go down, it fails. The direction of the shape is determined by a word in cell A1 - left/right/up/down:

Sub MoveRed()
Application. ScreenUpdating = True
Dim d As Integer
Dim i As Integer

d = Range("AZ1").Value

With ActiveSheet.Shapes("RedDot")
For i = 1 To 16 * d

Select Case Range("A1").Value
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

View 9 Replies View Related

Move A Shape In A Straight Line Between 2 Cells

Sep 24, 2008

if I wanted to slowly move a shape (small circle) in a straight line between cells R20 & W7.

The straightest line possible is by drawing an arrow line between the 2 cells.

Is there a way to then use this arrow as a guide for moving the shape?

In other words, would it make sense for the porgram to draw a transparent line between the cells, and use that line as a "path" along which to move the shape?

I just don't know if this is worth the trouble.

View 9 Replies View Related

Minimized Window Halfway Off Screen - Can't Move Back Down

Nov 11, 2008

Somehow I dragged a minimized window in Excel so that the top bar (where you click to drag) is hidden off the screen and now I can't drag it back down.

I can maximize the window through a right mouse click on the task bar.

Alt Space does not enable the "move" function.

I have restarted excel, closed it through the "X" and through the task bar. I have rebooted. I have renamed my file.

View 11 Replies View Related

Move The Sheet Tabs From The Bottom Of The Screen To The Side?

Aug 5, 2008

Is there a way to move the sheet tabs from the bottom of the screen to the side?

View 6 Replies View Related

VBA To Move Shape From Current Cell Position To Cell 1 Row Up

Nov 11, 2008

I require a macro to enable a selected shape to be moved from current cell location to relative position but 1 row up. eg topleft address = A4 and shift shape to topleft address = A3

View 5 Replies View Related

Change Shape Text Without Selecting Shape

Mar 4, 2009

when i run the below code i get an error 438 'object doesnt support this property or method'

View 2 Replies View Related

Application Onkey: Prevent Users From Using The Print Screen Or The Alt Print Screen Buttons On The Keyboard

Dec 29, 2009

I'm just looking to prevent users from using the print screen or the alt print screen buttons on the keyboard. I have this script that works if I use "39" (Right Arrow)but wont work if I use "42" (Print Screen Button).

View 5 Replies View Related

Locate A Shape Within A Shape

Jan 24, 2014

On the attached spreadsheet there is two irregular shapes. "Area1" & "Area2". I need to be able to determine which area the "ball" shape is located in. If the ball is in Area1 then "Multiply 8" gets the ball and "Multiply 9" moves to the blue cell "AH39". If the ball is in "AreaB" Multiply 9 gets the ball and "Multiply 8" runs to cell "S37"

I should be able to do the moving of the shapes using all the samples, its determining which area the ball is in is the problem.

In the real spreadsheet i will probably have around 10 different Areas.

Move Two Objects - Select Case.xlsm‎

View 5 Replies View Related

If Formula: =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good Shape","Bad Shape"))

Jun 23, 2009

I have D4=0.42. I thought this formula =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good shape","Bad shape")) was supposed to give me "Thin" for D4<0.38, "Good shape" for 0.38<D4<=0.48 and "Bad shape" for the contrary, but it only gives me "Bad shape" when D4 is clearly between 0.38 and 0.48.

View 4 Replies View Related

Is There A Way To Stick A Few Row Of Cells Together So That When I Move One They All Move

Jul 7, 2009

is there a way to stick a few row of cells together so that when i move one they all move.. i have some rows that when i sort them i want them to move together with the other ones..

View 9 Replies View Related

IF On Shape

Aug 24, 2009

code doesn't work

Sub test()

If ActiveSheet.Shapes.Name = ("five") Then
Range("B4").Select
Else
Exit Sub

End If

End Sub

View 9 Replies View Related

Change Shape Name

Feb 2, 2010

I have a shape in Excel called Canada. I grouped it with another shape and want this new grouping to be called Canada. But when I enter Canada in the shape name entry box, it doesn't actually change it (as it thinks I am referring to the existing Canada).

I need something like Names manager, but for shapes, not ranges.

View 9 Replies View Related

Shape A Textbox

Apr 1, 2008

Is it possible to find out if the selected item is a textbox through VB?

View 12 Replies View Related

Get The Name Of The Shape Clicked

Jan 21, 2009

Is there any way that I can get the name of the shape i just clicked to call a procedure?

I have 35 shapes in my Worksheet.
Each shape has a different name. Each shape has a macro procedure assigned, wich do almost the same procedure (with just small differences, depending on from wich shape the macro was called).

I want to make just one macro procedure and catch from wich shape the macro was called.

View 4 Replies View Related

VBA Keep Shape Static?

Mar 21, 2014

How do i Keep shape where it is no matter if i scroll up or down.

Sub KeepshapeStatic()
Dim ws As Worksheet
Dim shp As Shape
Set ws = Sheets("Sheet1")
Set shp = ws.Shapes("MyShape")
'How do i Keep shape where it is no matter if i scroll up or down
End Sub

View 6 Replies View Related

Add Shape & Rotate

Jan 2, 2007

i am trying to draw a shape (square or rectangle) using vba textbox's i have managed to draw 2 of the 4 lines.

i am stuck on the ShapeRange.Flip msoFlipHorizontal codeing.

i have attached a example of what iam trying to do.

the coorinates from the last line enterd are saved to sheet1 for use with the next line entered ...

View 9 Replies View Related

Shape On A UserForm

Dec 29, 2007

I want to create a shape connecting them and place that shape on a userform. I can create the area without any problems on a worksheet using ActiveSheet.Shapes.BuildFreeform but I don't know how to get it onto my userform.

I have looked through previous posts on similar topics and seen responses that it's as easy as copying the shape from the worksheet and pasting it into an image or frame on the userform. I can copy the shape to the clipboard without any problem. However, when I try to paste it onto an image or frame in a userform I get a message saying that the object doesn't support the use of paste. I've tried using both Selection.Copy and Selection.CopyPicture xlScreen, xlBitmap thinking it might treat a bitmap differently. When I paste I'm trying both UserForm1.Frame1.Picture.Paste and UserForm1.Image1.Picture.Paste but neither work, even though I have blank images and frames with those names on my form.

View 5 Replies View Related

Identify Activecell Of A Shape?

May 24, 2014

I have put a rectangle shape in a cell in excel. The shape is within the border of a particular cell.

Is there a way to find the reference of the cell on which that particular shape resides.

For example, I have kept a rectangle shape in cell F5. I was looking for a macro which would return the cell reference "F5" in which the shape resides.

View 6 Replies View Related

Formula For S Shape Curve?

Dec 13, 2013

I have a few dates and one Total value. I need to distribute this Total Value in such a way so I can get the same shape S curve (Date vs Value).

View 4 Replies View Related

Make A Shape Into A Button?

Dec 5, 2012

I really dislike the look of the command buttons and would like to use a nice flat-looking Shape into a functional button.

View 3 Replies View Related

Control Tip For Shape In Worksheet?

Jul 15, 2014

Is there any way to place a Control Tip for a shape on a excel worksheet?

View 3 Replies View Related

Multi Arc Shape In One Group?

Jul 18, 2014

How to draw multi Arc Shape in Union group Locks Like (Smiley Face 11)

View 2 Replies View Related

How To Get The Cells In Which The Shape Object Is There

Mar 12, 2009

I have a shape object which is created dynamically.

Now onAction event of the shape object, I need to get the cells row and column number where the shape object is sitting. How can i get it?

View 6 Replies View Related

Check If Shape Exists

Mar 30, 2009

how do i check if a shape exists?

i have a shape created by a macro.
sShape

so when i get rid of this shape i use

View 3 Replies View Related

Accessing The Properties Of A Shape

Apr 2, 2009

How does one access the properties of a shape? For instance getting the text on a button ( from the forms toolbar ) on a worksheet. This works

View 4 Replies View Related

Find Out If Shape Has Text

Aug 4, 2009

Have an .xls file with multiple sheets and many objects (Shapes) on of those sheets.
The objects are all rectangles, some of which contain text frames, where I had entered manually some text.

Also, each shape has a name.

Now, I want my VBA Macro to take a specific shape (using its name), and find out if it has text frame in it.

View 11 Replies View Related

Which Hyperlink Was Clicked And Associated Shape Name

Feb 10, 2010

How do I capture which hyperlink has been clicked (selected in any fashion)?

Then get associated shape name.

View 11 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved