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
ADVERTISEMENT
Feb 15, 2006
I have a list of items on which I need to calculate the SLD, normally I would just divide the Acq Cost by the Salvage period (5yrs) to calculate the yearly depreciation. However I have been asked to calculate it from the Cap Date, therfore the first year would only be a portion of the year and the final year would also be a potion of the year.
So I'm trying to calculate the depreciation period for an asset with an Acq Cost of £12500 and a Cap Date of 27th July 04 over a 5yr period from that date.
View 9 Replies
View Related
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
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
View Related
Sep 21, 2007
I have this simple code which sets the objects format as default.
Private Sub FormatTextBox()
ActiveSheet.Shapes("FormatBox").Select
Selection.ShapeRange.SetShapesDefaultProperties
End Sub
Is there a way to set an objects shape to the default format...not as default?
ie: if the default line color is blue. what code could i use to set an object with a black line color, to the default blue?
View 3 Replies
View Related
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
Feb 23, 2008
I am currently working on an excel file in which we track progress through the use of an autoshape line. Everytime the progress needs to be changed the line must manually be resized. I am using buttons with macros and trying to add a certain length to the line. So far I have been using the following
Sub line()
ActiveSheet.Shapes("AutoShape 80").Select
Selection.ShapeRange.IncrementLeft 28.5
End Sub
This code resizes the line by adding a percentage of the line length to the line. I want to be able to add the same length everytime.
View 5 Replies
View Related
Jan 10, 2009
Sheet1
Removed screen shots - Please DO NOT use actual personal information, sample data only! - Moderator
Some of the people on this list have a second name entry on the line below their first name entry. ALL of the people on the list have an Address2 on the line below their Address1.
How would I move the second name entry into the cell next to the first name entry, and then concatenate them, and then also move the Address2 entry into the cell next to Address1 (but not concatenate these)?
Like this:
Sheet1
View 60 Replies
View Related
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
Aug 16, 2014
I want to create a chart where I have 5 clustered columns, repeating 4 times(weeks). Each column(total invoices entered per user) has a error rate, which I would like to display as a line graph with markers. In other works, first column has its own line, second column has its own line etc. this spans the 4 weeks. When I create the chart now, ALL 5 the line markers are placed in the same one column. I can not move the line marker to sit on top of the column it is associated with.
View 2 Replies
View Related
Jun 17, 2014
I have been using the below macro that has worked a treat, however I need it to copy as value as when it moves over some of the formulas and links go a little funny.
[Code] ......
What amendment I would make so that it pasted special as value?
View 1 Replies
View Related
Dec 23, 2007
I am using Excel to create a parts list for a manufacturing assembly. I intend to have 6 categories (columns) for each part or instance. My problem is that the last (furthest right) entry will sometimes contain more characters than others. I want to limit the number of characters in the cells of this last column, and I have seen how to bump the remaining characters down to the next row(s) in the same column using the LEFT and MID formulas. This actually works very well for that purpose. However, I need to know how to force the next instance (row of 6 cell) to start together on the next available row.
The following images should better illustrate my question. First, I show the source data with the contents of cell F2 without further formatting. This cell contains more characters than I want making the column too wide for the printable space allowed. http://www.ozgrid.com/forum/attachme...1&d=1198374241
The next image shows the desired result with the extra characters from cell F2 moved to F3. (This data could actually fill up to 4 or 5 cells vertically.) Here, I have manually entered cells A4 through F5 for this illustration. I need to know how to automatically have A, B, C, D, & E move along with F. http://www.ozgrid.com/forum/attachme...1&d=1198374241
View 7 Replies
View Related
Feb 23, 2013
I have the data to import / read in a pdf, in a doc, or in an Excel worksheet whichever is easier to use. I need to import the data, parse it into the correct cells for that row and then repeat the import until the end of the file. Not all the cells are in each group of data to import, so those cells will be null for that row. Some of the data for one cell may be in up to 14 lines in the data file. I have be concatenating these data rows into one cell. There are 48,000 lines in the file to import or I would do this manually. I am assuming that doing this in VBA would be the most efficient method.
View 11 Replies
View Related
Aug 5, 2014
I'm trying to combine 2 cells that both have text on multiple lines separated by line breaks. I want to keep the formatting so that when both cells are combined, line one from cell 1 and line 1 from cell 2 are on the same line in the new combined cell. This is easy to do when there is only 1 line in each cell but how do you do this for cells with multiple lines? Here is an example of what I am trying to do:
A
B
C
1
First Name:
Last Name:
Address:
John
Smith
123 Harold Street
First Name: John
Last Name: Smith
Address: 123 Harold Street
View 7 Replies
View Related
May 20, 2008
How do I move data that is in a vertical column to line up horizontally (in separate columns, but same row)? For example, take an address:
Name
Address
City/St
Zip
How do I get it to go from that format to this format?
Name Address City/St Zip
View 9 Replies
View Related
May 8, 2008
Drawing Straight Lines In A Chart And Mark Intersections. I want to make a graphic like this in Excel.
View 7 Replies
View Related
Jan 31, 2012
Is it possible to install a dropdown menu straight onto the Quick Access Toolbar in 2010?
Tried
Code:
Application.CommandBars("Quick Access toolbar")
To reference it, but no joy.
View 3 Replies
View Related
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
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
Jun 27, 2014
following code is supposed to check whether cell contains a value and based on that either display or hide a shape. The last couple of lines are moving it. What I would need is to check all cells in a row (not only the first one) and if lets say first 1,2,3...10... cells contain a value move the shape all the way to the end of that cell and so on.
VB:
Sub Worksheet()
If Sheets("Text").Range("z6") <> 0 Then
With ActiveSheet.Shapes("Rectangle 8").Fill
[Code].....
View 4 Replies
View Related
Nov 30, 2007
I am trying to convert some text from a number of cells to shape in another workbook. The problem is, if the text in one of the cells is too long (from testing it by too long i pretty much mean roughly 100 characters) then it doesn't pass anything at all to the shape. Is there a way around this so that all text will be converted to the shape regardless of its size?
By the way, the code is:
ActiveWorkbook. Sheets("Sheet1").Activate
ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = "1. " & Priority1Range.Value & Chr(10) & "2. " & Priority2Range.Value _
& Chr(10) & "3. " & Priority3Range.Value & Chr(10) & "4. " & Priority4Range.Value & Chr(10) & "5. " & _
Priority5Range.Value
The variables 'Priority1Range' represent the cell the text is in that I am trying to pass and it's variable type is Range. I have tried declaring the Priority1Range.Value as a string variable and using this instead but this doesn't work.
View 9 Replies
View Related
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
Oct 3, 2012
I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.
However, if the user is not online, the query is unable to refresh and the macro just hangs.
Is there a code which will enable me to say " if unable to refresh then move on to the next line"?
here's the code below.
Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub
View 2 Replies
View Related
Mar 31, 2007
I have two sheets and two listbox's(ColumnCount8) and one command button.
lstInYard rowsource is set to sheet1
lstMilled rowsorce is set to sheet3
Iam trying to cut and paste the selections in lstInYard to lstMilled as well as the corrosponding row values in sheet1 to sheet3 by using cmdMoveSelected click event.
View 9 Replies
View Related
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
Aug 8, 2007
I have a workbook with 2 groups of data on it side by side. Goal here is to have them line up. The problem is one side has more data then the other OR the smaller side may have data thats not in the larger side.
example:
Accnt #, Name, address Acct#, Name, address
I would like:
1234 Mike Thomas 1234 Mike Thomas
1234 Jayne Thomas 1234 Jayne Thomas
1235 Chris Beaton
1236 Susan Hamel 1236 Susan Hamel
View 9 Replies
View Related
Nov 27, 2013
I have hundreds of lines with unique tasks in each cell. I wanted to add 'P&C- ' to the front of each task and do not want to go through and add individually as it will take take.
Is there anything that can place in one cell and just drag to the last cell and complete?
E.g.
Current Cell: Task A
What I need: P&C- Task A
I cannot add attachments as my work seems to have a restriction on doing it and always asks for admin password
View 4 Replies
View Related
Aug 6, 2014
I have an image which i have reduced to a mathematical representation of light intensities. We can consider each cell in my spreadsheet as a pixel, the value within the cell corresponding to how much light that pixel it took in during an exposure. There is a trend along the pixels that i would like to isolate as exactly as possible: a diagonal line, not quite straight from the bottom left corner to the top right.
What I would like to do, if possible, is to treat each cell in my spreadsheet as a point on a coordinate plane, and to use some type of formula or macro to give me a line of best fit using the positions of the highest valued cells as the data points in my extrapolation.
The tool I'm looking for would take data organized like this:
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 200 1 1 1
1 1 1 1 1 1 200 1 1 1 1
1 1 1 1 1 200 1 1 1 1 1
1 1 1 1 200 1 1 1 1 1 1
1 1 1 200 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1
And give me an equation of the form y=1x + b (describing where to find the maximum values among the cells), although my actually data will need to be fit to a higher order polynomial.
Once I can do this, I will also need a way to take perpendicular sums automatically along the line of best fit at distance of two pixels in both directions and a width of one pixel. You can imagine drawing a rectangular box perpendicular to the line of maximum values and adding the proportions of each cell enclosed by that box. This means that for the example above, i would get 209 for all five points of interest: the maximum value plus the two values of one in the upper left perpendicular direction, the two values of one in the lower right perpendicular direction, half the values of the two cells neighboring the exactly perpendicular cells and a quarter of the outermost cells touched by our imaginary pixel box.
The following image may be useful in clarifying what I'm looking for. The red bar represents the imaginary box containing perpendicular pixel sums, where the green beam is the line of best fit derived from my maximum values.
Attachment 337419
Also, here is a snippet of my actual data to experiment with in solving these strange and exotic problems
Attachment 337420
View 7 Replies
View Related
Dec 5, 2008
I am trying to move the data in a row from cell D thru I (eye) to cell H thru M.
Simply move it all over a few cells. Well not so simply.
The line in RED fails.
View 7 Replies
View Related
Dec 21, 2006
I have rows of data starting in row 4.
I have row Headers taking up columns A:G.
My data, which is downloaded, can be anywhere between H4 and IV900.
I need a macro that will go to G4
Then do the equivalent of arrow right to the first cell containing data
Select that cell and all cells to the right of it
Copy the selected range
Cut and Paste it back to H4
Move to G5 and repeat all the way down the worksheet so that I end up with al of the data starting in column H rather than spread all over the worksheet.
View 9 Replies
View Related
