Grafikhelligkeit und -kontrast per ScrollBar regeln

Grafikhelligkeit und Kontrast via ScrollBar regeln. SmallChange, LargeChange, Shapes.Brightness, Shapes.Contrast
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

Mehr Tipps: Erzeugen eines Image aus einem Worksheet-Bereich

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt