shp

  1. D

    Using VBA to insert different headers

    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 =...
  2. D

    VBA to insert a custom image

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

    Insert a custom image

    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 =...
  4. J

    Pivot Table Field Toggle Fails on a Mac

    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)...
  5. D

    Radial Color Gradient

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

    Attribute Issues

    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"?
  7. P

    Place vertical connector in the middle of cells in column

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

    Trouble With Deleting Shapes From A Worksheet

    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"...
  9. P

    Issues exporting Shape to iimage file

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

    Copy all objects in a column over as individual "Picture (Enhanced Metafile)" pics?

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

    Delete Images and object in specific ranges from multiple sheets

    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()...
  12. D

    How to get Gradient Path or Redial Fill

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

    excel macro to copy excel graph and data into 2016 MS Outlook

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

    VBA to delete Form Buttons

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

    VBA Code help - Form control toggle button not working on Excel for Mac but fine on Windows

    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 =...
  16. F

    Find location of shape

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

    Count for Group of Shape with different color

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

    VBA-dropdown list influencing shape location

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

    [VBA] Check if shape is a picture

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

    Shapes in cells

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

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top