| SmallChange, LargeChange, Shapes.Brightness, Shapes.Contrast |
| |
| | |
| Brightness: 50 % |
| Contrast: 50 % |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Private Sub ScrollBar1_Change() | Helligkeit regeln. |
| Dim x As Double, y As Double | |
| x = ScrollBar1.Value / 100 | Die Schattierung lässt sich nur in vollen Prozent- |
| With ScrollBar1 | werten verändern. Der Wert der ScrollBar muss |
| .Min = 0 | also durch 100 geteilt werden. |
| .Max = 100 | |
| .SmallChange = 1 | |
| .LargeChange = 5 | |
| End With | |
| ActiveSheet.Shapes(1).PictureFormat.Brightness = x | Grafik ansprechen. |
| Range("B5").Value = "Brightness: " & x * 100 & " %" | Wert wird in Excel-Zelle angezeigt. |
| End Sub | |
| |
| Private Sub ScrollBar2_Change() | Kontrast regeln. |
| Dim y As Double | |
| y = ScrollBar2.Value / 100 | |
| With ScrollBar2 | |
| .Min = 0 | |
| .Max = 100 | |
| .SmallChange = 1 | |
| .LargeChange = 5 | |
| End With | |
| ActiveSheet.Shapes(1).PictureFormat.Contrast = y | |
| Range("B6").Value = "Contrast: " & y * 100 & " %" | |
| End Sub | |
| |
zurück