I have this code and want to place text in shapes (circles).Text changes based on position in data table.
Code:
POINT_1 = Range("E" & j) * 7
NORTH = Range("E" & j) * 7
For j = 23 To 33
Dim CIRCLE_TEXT As String
CIRCLE_TEXT = Range("A" & j)
[Code] ............
when i run the below code i get an error 438 'object doesnt support this property or method'
View 2 Replies View RelatedHave 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.
I do PPC work and you can export query data from Adwords with Column A being the actual search query. Then column B - E are impressions, clicks, cost & conversions (from each query). In this example, cell A1 might be running shoes, cell A2 might be walking shoes, cell A3 is running pants, and cell A4 is baseball pants. I want to add a new column (F) that does product category groupings based on partial text matches in column A. For example, anything that includes the text string shoe or shoes should be labeled as shoes in column F. Similarly, all queries that contain the characters pant would be listed as product category pants in column F.
Currently I do this manually by conditional formatting on column A for contains text and then color the cells. Then I sort by cell colors. Then I manually type in the product category into F for each color block in A. Needless to say, this is slow and manual.
What I would prefer is to have a master table (like a vlookup) on sheet 2 where column A is the list of partial text matches and column B is the product category to be returned if that the partial text in sheet 2 column A is found in the query list on sheet 1 column A. This way, on sheet 2 I could have cell A1 sneaker, cell A2 shoe, cell B1 shoes, cell B2 shoes, etc to manage the correlation between text strings and product category groupings.
Basically I want a formula to put in the cells on sheet 1 in column F that searches all of column A on sheet 1, looking for partial text matches from column A on sheet 2 and returning corresponding product category in column B on sheet 2.
This it possible to change an auto-shape text say Rectangle 200 based on what cell is selected. For Example Peps: -If i select cells(3,3) then the text in Rectangle 200 will change to Hello!!!, but if i select cells (3,4) then the text will change to Bye Bye!!! Do you understand me babes
View 7 Replies View Relatedfollowing 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].....
I have a shape on one sheet. Need to change the name of a shapes depending on a value in cell from an other sheet.
View 6 Replies View RelatedI'm tying to change a shape based on a cell value. I have this but it will not change fron green to red.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A100").Value >= 0 And Range("A100").Value Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbRed
End If
End Sub
I would like the shape to go red, yellow and green but I can't find anything that works.
I have used VBA to copy data from a sheet into some shapes. Some of these shapes are upside down and therefore the text is upside down. Is there a way to flip the text without having to flip the shape?
View 1 Replies View RelatedI struggle with my old excel (2003). There is a thing i have to do: put arrows from one sheet which will change its color depending on data, written in some fields. Also there is a task to put these values inside created arrows. I put values using commands:
Worksheets("Map").Shapes("COL").Select
With Selection.Characters
.Text = Range("Data!E4").Value
Arrows are drawn in different angles using drawing tool. So i need to rotate the text inside the arrows respectively to angle of the arrow rotation. So how is it possible to rotate text inside that shape?
I'm trying to select the font size of a text in a created shape. My actual code is not working.
Code: ActiveSheet.Shapes("Rectangle 46").TextFrame.Font.Size = 8
What is the proper way to address it?
I want to resize a shape and set the height to a specific cell. How can I achieve that?
View 7 Replies View RelatedI have a picture in my spreadsheet which slight tilted. I want to add a text box on to that shape and add some text but i want the text to be angled the same shape as my picture.
If I create and rotate my text box manually, the default rotation makes it rotate slight to much.
I was hoping if I could add a custom drawing of a text box so the text can be the same a picture.
I have a button on say, sheet1 with text that I want to change after a certain action takes place; however, I was trying to change this text without switching sheets. (switching sheets isn't a big deal, I'm mainly trying to do it my way for the practice). I'm able to select the button on the other sheet without actually switching sheets, but when it comes to changing it's text I get an error. Here is the code I tried:
Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 2").Select
Selection.Characters.Text = "Done"
End Sub
Problem with this is it gives cell A1 on sheet2 the "done" text. I also tried this...but it gives the error.
Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 1").Select
With Worksheets("sheet1").Shapes("Button 1")
.Characters.Text = "Done"
End With
End Sub
I am trying to use a userform ( Combo Box) to update my named cell "Aircraft1" then based on the value selected change the color of an object.
The code works great if I manually enter the value in the cell "Aircraft1", however if the dropdown list selects the value the object does not update its color.
Is there a way to update the cell via a combo box, and then have the VB code change the color of the object?
This is my
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Aircraft1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Arrow1").Select
With Range("Aircraft1")
If .Value = 1 Then
ActiveSheet.Shapes("Arrow1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Is there anyway to create a checkbox or anything that if a condition were met, it would circle a value?
Simply put, I'm transferring an expense report from paper to excel, and this report is still entered by accounting from hard copies. The expense report requires that all credit card expenses be circled. Previously, I've created cell sized circles, left them unprotected so that they could be dragged over the credit card expense. I would like to add a checkbox somewhere that says, "Circle Expenses" or "Circle All Expenses".
Ive been trying to draw a circle in excel, although it only draws ovals - Is there a way to draw a circle in excel?
is there a code to draw a circle? by supplying the center position and the diameter? for example cell "A1" and " A2" are for the center of the circle position and "A3" for the diameter? and whats the code for drawing a rectangular by supplying the starting position and short length and the long length?
View 6 Replies View RelatedI have a peice of code that i know is inefficient and it is in danger of becoming too large. I have a spreadsheet that has circles aligned to each cell. There are around 100 in total. The code changes the colour of the shape based on the cell value in which it sits. However, the code needs changing and also it does not automatically update the colour shape even though the cell value changes. I have to manually select a cell and then the formula bar and then press return for it to update.
I am using excel 2010.
This is the code i am using for each shape.
Code:
If Range("n12").Value = text Then
ActiveSheet.Shapes("Oval 250").Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
[Code]....
See attached photo. I need a formula to calculate the length of line “c1”. I know the diameter of the circle, and the number of segments. In the photo there are 8 segments but this will change.
View 2 Replies View RelatedI've been look for an excel tool to draw venn diagrams with the 'circle' size in propartion to the set (population) sizes and the correct degree of intersect.
Having no luck I've made one myself - it's not pretty (the code sure is ugly) but it get's the job done.
May not work in versions earlier than xl07 - haven't been able to test
So take a look - pull it to pieces all you want.
**Warning**
Attachment contains Macros
**********
Orginal text in thread:
Silly question..but that's never held me back.
I a protected workbook I have the rows and columns indicated below. Each letter in the 2nd row is in a single cell. When completingthe entire form I want to be able to have the appropriate letter circled. I am not permitted to change this selection process to a drop down list - it must remain as formatted.
View 2 Replies View RelatedI have 4 columns wherein the details are somewhat given below. Is there any way, wherein the figures under the column "No. of times" can be circled if it goes above 3.
Sheet1 CDEF19DateTimeMin.No. of times20Apr-0821Wed - 09-Apr-20082:42 & 2:494 & 23222Thu - 10-Apr-200803:215123Fri - 11-Apr-200810:27, 7:24 p.m., 7:39 & 7:401, 8, 1 & 12424Tue - 15-Apr-200810:26, 10:31, 10:32, 11:26 & 11:306, 2, 4, 4, 25 Excel tables to the web >> Excel Jeanie HTML 4
How do I change the color of the zero/0 circle in a radar chart (it runs from -20 to +25)?
I tried to do the adjustment through "format chart area" but seems like it's impossible to do it from there.
I'm trying to learn about class modules and how to create object that i can manipulate within a sheet.
i'd like to create a simple cirlce object that i can visibley see on a sheet.
is this possible and if so any idea on how i start?
Creating a formula that would generate a perfect and full circle - see attached picture example. The circle needs to remain centered in the X,Y axis. Also the circle diameter will either be 1, 2, 3, or 4 units large depending on user selection.
View 1 Replies View RelatedI had a Calendar Control (2007) but now stuck using 2013. I have to change all of codes related to my Calendar Control to a Month View Control. Problem is I had 4 command buttons beside my calendar to automatically add value to the calendar:
My Code is in a userform. Standard code for MonthView:
[Code] ....
Basically it was “highlighting” the todays date but if one of the cmd_button was clicked then it would highlight the today’s date plus 15 (making the highlighted date, if we take today as an example: 2014/05/22).
Now with the Month View is there a way to select the exact same thing? I mean I know if I deactivate the “Show Today” in the properties but is there a way to make the selected date to have the “Circle in Red” around the date IF I click on a command button?
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‎
Check the attachment, i could not make out this using vlookup, how to overcome this problem.
test.xlsx‎
1. Search an excel sheet "column" for a particular type of text and insert values based on that text (if found) in another column.
e.g I have column A1 to A10 with different types of text. I would like to search for the keyword "Risk is high" OR "Risk=High" for each cell in the column and insert a "1" if found beside it's corresponding "B" column. If not found, I would like to insert a "0".
So, if the text "Risk is high" OR "Risk=High" was only found in A6, I would like B6 to be "1". Rest of the values in the B column would be "0's", since the text was not found in any of the other cells.
