shapes

I have an Excel Sheet with the World Map placed on it as individual Shapes. USA's Shape name is S_USA and when selected I want to pass the Shape's Name to the Pivot Table Filter so I can see a list of Suppliers in That country. I already have the data set up to match the shapes names. Now it is...

iam giving input in A1 TO A10 In sheet 1 at sheet 2 shapes should appear with specific position as mentioned in sheet 1(A1:A10) Can i get help with this? Sub populatearrow() Dim shapi As Shape Set shapi = Sheets("Sheet 2").Shapes("Rectangle 2") Dim shap As Shape Dim x Dim position position...

Hi, Would there be a way to stop shapes moving when scrolling I have 4 rounded rectangles that I use as macro buttons and would like the to sit to the right near the top of the screen when scrolling Not sure if its even possible Many thanks for any help

I am trying to count the number of shapes in a given range which has worked fine so far. The code throws an error if I run the code after activating a drop down menu in the sheet. Dropping down the menu causes the sheet to "add" a shape called "Drop Down 13". My code does not like that and...

I will try to keep this as simple as possible and not dive into the complexities of the code. I have a code that generates shapes, each shape with the same assigned macro. The macro calls a code that gets the shapes name, and cross references a list to find that name and pull data from that...

Hi! In Worksheet1 I have a lot of shapes, some has same name. I want to rename all shapes in Worksheet1 to: Picture1, Picture2, Picture3, Picture4, ..... and so on. Please help. Function ShapeAtActiveCell() As String Dim Sh As Shape For Each Sh In ActiveSheet.Shapes If...

Hello, I work in excel everyday but I have changed computer lately and one of the things I cannot change is the printing colour sets! Before I was able to print colourful images and colourful shapes for example, and the highlighted cells (that help me hot to calculate things) were being...

I have developed a dashboard that summarizes data using some shapes. The VBA code positions and re-sizes the shapes based what's found in the raw data. It works fine on my computer, but when another user opens it up, the shapes are all in the wrong place and overlapping. He works in a...

Hi! I want to delte alla shapes but not with the name "rapport". The shape "rapport" is msoShapeRectangle witch i create in Worksheet. Other shapes creats in vba' Please help! Sub DeleteShapes() Dim w As Worksheet Dim s As Shape Set w = ActiveSheet For Each s In w.Shapes If s = "rapport"...

Good day all Thanks for taking the time. I have a sheet in Excel that contains shapes with text in them. The texts in these shapes are not misspelled. If I run a spell check nothing is picked up. All text has red wiggly lines under them. How do I get rid of these lines? It even prints when I...

As a part of a genealogy system I want to manipulate the shapes in a family tree. The rectangles for the PERSONs are named by a PersonID - in the attaced file 29,36 for father and mother and 37,51 for the children. The triangle representing the couple is named "29+36" - the Id of the father...

Hello everyone, So I created a worksheet with visual graphic shapes about shapes 35 per station area mirrored to each station with same shape but minor name change for each shape (s1sShape, s2sShape). I also created a form's for each area to control the select and deselect of the shapes...

Hi im using excel 2010 In my work book i have a inserted an arrow from the insert shape's ive chosen the block arrows section down arrow 4 & Up arrow 5 is it possible that if cell A1=0 then B1 has the down arrow 4 inserted And if A1 value= 1 then the up arrow 5 would be inserted into B1...

Is there a way to make a cell be dependent on a shapes location? For example I would like a cell to change value if I were to move a textbox, I would like the value in the cell to change. All I have seen is basing the shapes position on a cell value, but not the other way around.

I'm just manually trying to move some shapes around on the active worksheet by selecting the shapes AND then with a Sub move them. IF I in the immidiate window asks for: ? Excel.Selection.Count I get the correct number back ... tried many different selections BUT ...

Hi I am hoping there is a boffin that can help? I tend to do all my VBA in Excel as an accountant, but I have a scenario where I have to do some VBA in Word and I am struggling with which methods to use. I have a pre-generated word specification document that I need to insert the corporate...

Hi guys im trying to quickly find the row number of my shapes., they are added trough another macro. I had success with this code to find the location: For Each Shp In ActiveSheet.Shapes If Shp.Name = Application.Caller Then StartPos = Shp.TopLeftCell.Row Next Shp But can this...

Hello! My name is Jenny and I am working on some code that will insert 6 rectangle shapes based on corresponding length and width values that are in 12 separate cells. I got the code figured out to do this, but the calculation doesn't seem to 100% be working. I realized that VBA reads things...

Hello I'm using this board quite a few times but I never posted a question. I'm working on a special project in my company and for this project we use excel and vba code. We got a strange behavior. With VBA we import data from other workbooks into the main workbook. This tooks about 30s for...