msotrue

Hi everyone, Hopefully an easy one for someone to help me with. Can anyone supply the VBA to insert an image from file into a selected shape this is what the recorder gave me. I would like the user to be able to choose an image from file and not restrict them to a pre-defined name. Sub...

Hi Everyone, I have been using this block of code for almost a year without any issues. Today I started getting and error that says "Compile error: Method or data member not found" as soon as the code runs. The VBA editor highlights this specific section of code: cht.Chart.SetSourceData...

I have the following code that will increase the size of a shape when it's clicked, and decreases it to its original size on the second click. Sub Picture2_Click() Dim shp As Shape Dim big As Single, small As Single Dim shpDouH As Double, shpDouOriH As Double big = 2 small = 0.5...

Hello, I wrote the following code below. Anything referencing shapes 1-15, 101-115 and 201-212 work. Everything else does not and I cannot figure out why. When I run HideSignals or ShowSignal the macro does run, but nothing happens to shapes 21-32. This is true even if I rename them or create...

Hi all, I have inherited some code that is used to colour code segments in a donut chart based on a RAG status, I am trying to amend it to work on a new piece of data however it isnt working. So far it is correctly iterating between each segment however isn't changing the colours. Could...

I am trying to paste special and manually format the object to a certain scale. However, the scale size always changes. Here is my code: With Selection.Tables(1).Range.Cells(2).Range .PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _ Placement:=wdFloatOverText, DisplayAsIcon:=False...

Hi I am trying to paste special an object from Excel to the word file. However, I get "member or data member not found". Here is my code: With Selection.Tables(1).Rows(1) Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _ wdInLine, DisplayAsIcon:=False...

I have a bit of code that will loop and add shapes to pre-formatted sheet, all row widths are the same, all column widths are the same.. as the macro loops more and more the shapes start to become out of place but ONLY down, they don't move left or right, just further down than what they should...

Hi, I have some code below that takes a range in Excel and copies it as a picture into Powerpoint. The bottom section of the code sizes and positions the picture on the ppt slide. How can I change the code so the value of 0.75 that is currently hard-written into the code as '.ScaleHeight 0.75...

Thanks in advance for taking a look at the issue we are having and helping with a solution! We have recorded a Macro with a textbox (Insert Textbox - not a shape with text or Active X text box). We want to add this textbox wherever we want to on the sheet. In other macros, once they were...

I am using the code below unsucessfully: ActiveSheet.Shapes.Range("Function").Visible = msoFalse ActiveSheet.Shapes.Range("Function").Visible = msoTrue The worksheet contains 10 activeX check boxes that I have assigned all the same GroupName "Function" Basically, If Target.Value = "Hub"...