The printer reminded me to an old wisdom, which says:
“A printer consists of three main parts: the case, the jammed paper tray and the blinking red light.”

But be careful with troubleshooting, sometimes trouble might shoot back. In this particular case it means: black hands…

Just read this information, which made me laugh…

Son, employees are like mules. Some you stand in front of and coax them along with a carrot. Some you stand behind and kick them in the ass. The key to management is knowing which mules are which.

This week, I went the first time in my life to play paintball. Well very funny game. But it hurt. Oh man. Two bumps on my head. And a several bruises on my body. I was hit on my throat, which made eating quite painful within the last two days.
Conclusion: I am not a great warrior. Rather a bad one. But at least I have a big mouth. I think this way, I can make up with the weaknesses I have…

Actually, I am not a fan of Microsoft products. I am fond of Linux, that’s clear.

But anyway, if someone wants to hide his own incompetence by saying: “Uh, that’s all the fault of Microsoft”, then I will get angry. Why not just admit, that you are not capable of something? No, just blame someone else. And there’s enough space on Microsoft’s back…

If you create a x-y-scatter diagram in Excel, you might wish to set a label at each x-y-point. But, there is no menu for that. You need to do it with VBA. Here comes the code…

Sub set_labels()

Set cht = Worksheets(1).ChartObjects(1).Chart
no_of_series = cht.SeriesCollection.Count
start_row_label = 1
start_col_label = 2

For i = 1 To no_of_series
no_of_points = cht.SeriesCollection(i).Points.Count
  For j = 1 To no_of_points
      cht.SeriesCollection(i).Points(j).ApplyDataLabels Type:=xlDataLabelsShowLabel, _
                AutoText:=True, LegendKey:=False
      cht.SeriesCollection(i).Points(j).DataLabel.Characters.Text = _
                ActiveSheet.Cells(start_row_label + j - 1, start_col_label + i - 1).Value
  Next j
Next i

End Sub