Hello Cindy! Thank you very mcuh for your help! However I seem to have problems writing your code. The thing is that I know what you mean but I really am bad at syntax. The code looks like:
Dim obj As Object
Dim myChart As Excel.Chart
For Each obj In Selection
If TypeName(obj) = "ChartObject" Then
Set myChart = obj
Sub linjeDiagramKnapp(argChart As Excel.Chart)
Dim mySize As DoubleWith argChart
.ApplyCustomType ChartType:=xlUserDefined, TypeName:="Standard"
.Height = 150
.Width = 150
.Top = 100
.Left = 100
.Height = 100
.Width = 100
.Top = 10
.Left = 10
.Interior.ColorIndex = xlNone
The problem is:
1) I get "incompatible types" at the line "Set myChart = obj". You had not declared obj in your code so I did that because otherwise I got "Undefined variable".
2) Assuming that I fix problem 1) how shall I refer to the chart Eg if I want to change the plot area as in the last piece of code, is the current syntax correct If not how shall I write it
Please, please help me out here! I know that I am a pain but I really cannot solve it! Thank you so much for all your help! Any assistance always appreciated!