Option Explicit
Dim ori As Shapes
Dim s As Boolean
Private Sub ScrollBar1_Change()
If ori.Count = 0 Then
Me.Hide
Me.Show 0
Set ori = ActiveSelection.Shapes.FindShapes(Type:=cdrBitmapShape).Shapes
ActiveDocument.ClearSelection
Exit Sub
End If
Dim w#, H#
If s Then
Application.ActiveDocument.Undo 1
End If
Application.ActiveDocument.BeginCommandGroup "effect1"
Application.Optimization = True
ori.All.ApplyEffectBCI ScrollBar1.Value, 0, 0
Application.Optimization = False
Application.Refresh
Application.ActiveDocument.EndCommandGroup
s = True
End Sub
Private Sub UserForm_Initialize()
With Me.ScrollBar1
.Max = 100
.Min = 0
End With
s = False
ActiveDocument.ClearSelection
Set ori = ActiveSelection.Shapes.FindShapes(Type:=cdrBitmapShape).Shapes
End Sub
Private Sub UserForm_Terminate()
Set ori = Nothing
End Sub