shp

I have a start up page for my spreadsheet that allows a user and a site to be selected. Depending on the user, I want a signature that is stored on the sheet Users, inserted in the following format onto sheet1. The signatures are stored in sheet 2. Dim shp As Shape Set shp =...

I have code to insert a set image. Could someone tell me how to alter it so it can insert a custom image please? Sub cmdJakeSig() Dim shp As Shape Set shp = ThisWorkbook.Worksheets("sheet1").Shapes("textbox4") Sheets("Sheet2").Shapes("ImgJ").Copy Sheets("sheet1").Paste...

I have code that puts an image in the right spot. Could someone help me with the code that allows you to insert your own image and put it in the same spot please? This is the code that puts the set image in the right spot. Sub cmdGarrettSig() Dim shp As Shape Set shp =...

Hello: I have the following code that toggles field selection on a pivot table. It works fine on windows, but fails on a Mac at the line indicated below. The Mac is updated with the latest version of excel. Any ideas? Thank you! Failure line: Set shp = ActiveSheet.Shapes(Application.Caller)...

Below code fill liner I need to fill Radial Color Gradient THX Public Sub RadialColorGradient() Dim Shp As Shape With ActiveSheet For Each Shp In .Shapes If Shp.Name = "MyShape" Then Shp.Delete Next...

Hi! Whenever I dim an attribute to "shape" it makes it captialize weird. Say I type "dim shp as shape" it returns this "Dim shp as sHape" Anyone know why it would capitalize the "H"?

I wish to programatically to add a connector in the center of the cells in range B5:B11. I do have the following code below, but how to place the connector in the center (not left)? Sub AddArrow() Dim shp As Shape Set shp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight...

I have a worksheet with 4 macro embedded shapes on it. I'm am trying to get code to work that will delete two of the 4, but I'm not having any luck. Dim Shp as Shape With wb2.Worksheets(1) .Unprotect For Each Shp In ActiveSheet.Shapes If Shp.Name = "Group12"...

I am automating the process of creating 50+ Org Charts images but often they are empty. I traced this to the commented step below. If I break there and then press F5 to continue the code, it creates the image. But if I don't break then many images end up 2KB in size, which is empty. Does anyone...

Is there a way to copy all picture objects in a specific column over to another column as INDIVIDUAL "Picture (Enhanced Metafile)" pics? I found this code that selects all objects in a column if it helps... Sub SelectShape() Dim shp As Shape Dim r As Range Set r = Columns("a:c") For Each...

Hi All, I have 10 sheets in excel files and 4 are hidden and 6 unhidden. Now I am looking for code which can delete all images and objects from specific range suppose(C3:L40) from all visible sheet. Can anybody suggest me what modification required in below code. Sub Del_All_Shapes_WB()...

In this I have Gradient Rectangular how to get Path or Redial Types ? Sub FillGradientRedial() Dim Shp As Shape Dim MyShp As Shape For Each Shp In ActiveSheet.Shapes Shp.Delete Next Set MyShp = ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200) With...

Is there a way to copy a graph with its related data on an excel sheet and paste into Outlook e-mail as an image/picture and send (shp. scaleheight would be 75 and shp. scalewidth would be 70) using excel macro? I appreciate the guidance. iP_123

Hi I need to delete all Form Buttons on the Active Sheet whose name does not start with "Main". This is what I have at the moment, but obviously it isn't working - error message is "Object doesn't support this property or method". Sub delbuttons() Dim shp As Shape For Each shp In...

Does anyone know what I need to change to get this VBA code to work in Excel for Mac? It works fine in Windows. It is a show/hide toggle for rows while the caption on the button changes as well. I used a form button (not ActiveX). Sub HideDone() Dim Shp As Shape Set Shp =...

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...

Greetings, I have 4 shapes in one group in Excel Workbook, I want is when I color 2 shapes in yellow, Cells(6, 21) will appear 1 and cells(6, 22) will appear 2, and the other 2 shapes I color in blue, cells(9, 21) still remain 0 and Cells(9, 22) are 2. Below is my vba code I apply in my...

I have this code that creates text boxes on worsheet(1) when I enter something in Worksheet(1) A1 to A30. At the moment the boxes are created on top of each other. Now I want to add a new feature: I want the place of the texboxes to be choosen acoordingly, when I choose one option of a...

Hi I've got quite a few excel files to redo, each with hundreds of shapes in them. Some of them are pictures, some of them are standard shapes like square, diamond etc. Pictures are a mess and I would like to resize all of them to same size (which they should be in the beginning) Dim ws As...

So I have this code that first deletes any old shapes (if any) then inserts new shape after. this code was not made by me and i'm having some troubles improving it.. originally it work like this: cell G27 has a dropdown list and shape gets inserted into cell f27 , Im trying to get remake the...