[求助]会VBA的请教，旋转对象的代码问题(Office2003中)

zgzxp

[这个贴子最后由zgzxp在 2005/03/16 09:58am 第 1 次编辑]

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} 自由旋转
   Caption         =   "自由旋转"
   ClientHeight    =   1935
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2640
   OleObjectBlob   =   "自由旋转.frx":0000
   StartUpPosition =   1  ';所有者中心
End
Attribute VB_Name = "自由旋转"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
On Error GoTo err1
If NoSelect = 1 Then Exit Sub
AA = Selection.ShapeRange.Top
Selection.ShapeRange.IncrementRotation TextBox1.value*(-2*CheckBox1.value+1)
Selection.ShapeRange.Top = AA
  Exit Sub
err1:
  If Err.Number = 70 Then
  Err.Clear
  MsgBox "嵌入式图形图片不支持该操作!", vbApplicationModal + vbInformation, "化学模板"
  ';NoSelect = 1
  End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
这是窗体代码，用来旋转选定对象指定的度数
但是有个问题，每次改变度数或方向后，要第二次执行时才能生效，第一次还是以前的度数或方向，请教错在哪里？
谢谢