VBA excel 2007，组合框；“拒绝许可”；

我是VBA的初学者，我正在Excel2007上开发一个宏，我对ComboBox有一些问题。无论我在哪里尝试添加项目，都会出现错误70“权限被拒绝”。我犯了什么错？ 下面你可以找到我的简单代码

Private Sub CommandButton2_Click()
Dim pic As IPictureDisp

Set pic = UserForm1.Image1.Picture

'stdole.SavePicture pic, "ciao"
Call SavePicture(pic, "ciao.jpg")
End Sub

Private Sub CommandButton3_Click()
   Dim MyChart As Chart
   Dim ChartData As Range
   Dim ChartName As String
   ChartName = "ANCONA"
   Set ChartData = ActiveSheet.Range("A1:A9")
   Application.ScreenUpdating = True
  'UserForm1.Image4.Picture = LoadPicture("C:\Users\rfori\Desktop\PROGETTO 
   MARTINA\parto_trig.jpg")


'
  Set MyChart = ActiveSheet.Shapes.AddChart(xlXYScatterLines).Chart
  With MyChart.SeriesCollection.NewSeries

        .Name = ChartName
        .Values = ChartData
        .XValues = ActiveSheet.Range("B1:B9")
   End With

   Dim imageName As String
   imageName = "prova.jpg"
   MyChart.Export Filename:=imageName, FilterName:="jpg"

   Application.ScreenUpdating = True
   UserForm1.Image1.Picture = LoadPicture("prova.jpg")
  'MyChart.SeriesCollection(1).Name = ChartName
  'MyChart.SetSourceData Source:=ChartData
End Sub



Private Sub UserForm_Activate()
  ComboBox1.AddItem "ciao"
End Sub
Private Sub UserForm_Initialize()
   ComboBox1.AddItem "ciao"
 With Me
  .StartUpPosition = 1
  .Width = MultiPage1.Width
  .Height = MultiPage1.Height
  .Left = Application.Left - (Application.Width * 0.85) \ 2
  .Top = Application.Top - (Application.Height * 0.85) \ 2
 End With

  myarray1 = Array("Ancona", "Milano", "Palermo")

  For x = 0 To 2

  'ComboBox1.AddItem myarray1(x)
  Next x
End Sub

Sub window_sizer()
 With ActiveWindow
  .WindowState = xlNormal`enter code here`
  .Height = 75
  .Width = 125
  .ScrollColumn = 1
  .ScrollRow = 1
End Sub

---

提前感谢您

之前遇到了与中所述相同的问题。

---

确保属性

ListFillRange

为空

请在发布之前。可能的副本可以直接从数组中amso填充组合框：''me.combobox1.list=myarray1'，谢谢大家！我很抱歉问了一个重复的问题，我是新来的，我做了一个研究，但我没有发现类似的问题。