is it possible in VBA to measure each line of a freeform shape and measure the angles that are created between two joining lines. Is it also possible to set the length of each individual line in VBA? See attachment for example.
View 6 Replies
The group behaves as one shape alright when, say, coloring the line, but is not "fillable". Below a simple sample. - The custom shape i am trying to color in is not a simple square or rectangle -not anything from the existing MS shapes that is....
View 6 Replies View Relatedwhen i run the below code i get an error 438 'object doesnt support this property or method'
View 2 Replies View RelatedI am looking to create a system to measure KPI (key performance indicators). I need to include a weekly target and then measure performance for that week against the target. I want to create a form to make data entry simple, how best it would be to implement using excel. Would I have 2 tables, one for targets and one for performance and then use look ups.
View 9 Replies View RelatedI once used a Function to Measure the distance of the lefthand side of the active cell to right of the screen.
But now I can find it anywhere.
can anybody remember the function Name?
I want to set up a spreadsheet where i can log people's time in half day intervals. The spreadsheet will be split into each person and AM and PM sessions with different projects listed against different days. The spreadsheet will also list any overtime they have spent and totalled up at the end of a period. I would like to be able to ask Excel to look through everyones projects and total up how many days everyone has spent on each project eg. if there are 3 people working on 1 project what is the total amount of time spent by everyone. I will then later add their hourly rates and overtime rates and want to total all of this up against the different projects.
View 2 Replies View RelatedI am trying to use a For loop to measure the lenght of text in 10 text boxes on a user form so I can run a check but can't think of a way to do it. This is the best I have so far...
View 4 Replies View RelatedI want to be able to measure the progression of a cell that is in a dropdown in Excel. Once the cell "closes" it is important but it is more important to see what the cell was before it was coded as closed. Is there a way to see what the last item in that cell was? maybe put it in another cell?
View 3 Replies View RelatedThe summary measure for my data field buttons my pivot table wizard is defaulted to count instead of sum.
How do I change the default back to sum.
I am trying to measure how long it takes to locate a file the user wants to open. Eg., from when they click File|Open to when they click the "Open" button in the Open dialog box (after they have navigated through the directories to find their file).
I have approached this by using a class module and withEvents. This uses the Click event to trap when they have hit the File|Open button from the File menu and timestamp it.
class module: EventFileOpen
Public WithEvents cbOpen As CommandBarButton
Private Sub cbOpen_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "File open started at: " & Now()
End Sub
Private Sub Class_Initialize()
Set cbOpen = Application. CommandBars.FindControl(ID:=23)
End Sub
Private Sub Class_Terminate()
Set cbOpen = Nothing
End Sub..........
Looking to create a system to measure KPI (key performance indicators). I need to include a weekly target and then measure performance for that week against the target. I want to create a form to make data entry simple, how best it would be to implement using excel. Would I have 2 tables, one for targets and one for performance and then use look ups, [URL]
View 3 Replies View RelatedI am looking for a way to measure how long it takes to complete a sub routine in VBA. I have code which posts data to matlab and then calls it back. What I need to know is how long does it take to complete each subroutine.
create a code which will measure this? I need to measure the time taken in 100ths of a second.
Is there any simple code to complete this? I am pasting a sample of my code which is using Matlab as a COM server.
Dim Matlab As Object
Dim MReal(10, 0) As Double
Dim i As Integer
Dim j As Integer
Dim MImag() As Double
Dim value As Double
Dim RealValue As Double
I am sure I woould need to declare the timer but I do not know where and I am not sure of the syntax.
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
I am trying to format colums containing numbers & units of measure to numbers only.
I am using Office 2003.
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 RelatedI can not figure out why the ChDir command doesn't change to "C:" as programmed, instead it defaults to (I'm guessing last active folder) on my "D" drive (Which is "D:Test")? My goal is to check if "PPG" exists in "C:MEASURE-6000", if not use "C:" as a default.
View 2 Replies View Relatedcode doesn't work
Sub test()
If ActiveSheet.Shapes.Name = ("five") Then
Range("B4").Select
Else
Exit Sub
End If
End Sub
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.
Is it possible to find out if the selected item is a textbox through VB?
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.
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
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 ...
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.
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.
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 RelatedI 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 RelatedIs there any way to place a Control Tip for a shape on a excel worksheet?
View 3 Replies View RelatedHow to draw multi Arc Shape in Union group Locks Like (Smiley Face 11)
View 2 Replies View RelatedI 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?
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
