Closed 5 hours ago.

Closed 5 hours ago.

I’ve got a small company and I’m using excel with macro’s for our invoice system. For the last few months i cannot make use of this system anymore because I got the following error when starting up the excel document:
/xl/drawings/vmlDrawing1.vml-object. (drawingshape).

I’ve got a small company and I’m using excel with macro’s for our invoice system. For the last few months i cannot make use of this system anymore because I got the following error when starting up the excel document:
/xl/drawings/vmlDrawing1.vml-object. (drawingshape).

I’ve got a small company and I’m using excel with macro’s for our invoice system. For the last few months i cannot make use of this system anymore because I got the following error when starting up the excel document:
/xl/drawings/vmlDrawing1.vml-object. (drawingshape).

Sub Rectangle5_Click() Dim xSelShp As Shape, xSelLst As Variant, I As Integer Dim xRow As Integer Set xSelShp = ActiveSheet.Shapes(Application.Caller) Set xLstBox = ActiveSheet.ListBox1 ‘ If the listbox is not visible, make it visible and load the previously selected items into the listbox If xLstBox.Visible = False Then xLstBox.Visible = True xSelShp.TextFrame2.TextRange.Characters.Text = “OPEN LIST” […]

Sub Rectangle5_Click() Dim xSelShp As Shape, xSelLst As Variant, I As Integer Dim xRow As Integer Set xSelShp = ActiveSheet.Shapes(Application.Caller) Set xLstBox = ActiveSheet.ListBox1 ‘ If the listbox is not visible, make it visible and load the previously selected items into the listbox If xLstBox.Visible = False Then xLstBox.Visible = True xSelShp.TextFrame2.TextRange.Characters.Text = “OPEN LIST” […]

Sub Rectangle5_Click() Dim xSelShp As Shape, xSelLst As Variant, I As Integer Dim xRow As Integer Set xSelShp = ActiveSheet.Shapes(Application.Caller) Set xLstBox = ActiveSheet.ListBox1 ‘ If the listbox is not visible, make it visible and load the previously selected items into the listbox If xLstBox.Visible = False Then xLstBox.Visible = True xSelShp.TextFrame2.TextRange.Characters.Text = “OPEN LIST” […]

I am trying to write an Excel user function in VBA that will allow a user to add a button wherever they need.
I already have a VBA routine that will ping an IP address shown in an excel cell. Suppose a user has spreadsheet with IP addresses in column A. I want to give them the ability to enter a function into e.g. B1: =PING (A1) and this will create a button in C1 called “START PING” which when pressed runs this ping routine on the IP address in A1. Depending on the result, the fill color of A1 can be set to be Green or Red.

I have a sheet with multiple macro buttons (these work) but they’re taking up space as I am creating new macros all the time.