Кнопка Command меняет цвет в MultiPage - PullRequest
Новая
       29

Кнопка Command меняет цвет в MultiPage

0 голосов
/ 25 января 2019

У меня есть приведенный ниже код, который я использую, чтобы выбрать файл на моем компьютере и прикрепить его к моему листу Excel в качестве объекта OLE.Чтобы выбрать файл, пользователь должен щелкнуть командную кнопку в форме пользователя, которая открывает диалоговое окно выбора.После того, как файл был успешно прикреплен, кнопка меняет цвет на светло-зеленый, но этого не происходит.Благодарим вас за помощь.

Спасибо!

Ниже приведен мой код: 

'ACTIVE IN TEST 2
Sub InsertTradeLicense()

Dim iconToUse As String
Dim fullFileName As String
Dim FNExtension As String

fullFileName = Application.GetOpenFilename("*.*, All Files", , , , False)

If fullFileName = "False" Then

Exit Sub

End If


FNExtension = Right(fullFileName, Len(fullFileName) - _
InStrRev(fullFileName, "."))


Select Case UCase(FNExtension)

Case Is = "TXT"

  iconToUse = "C:\Windows\system32\packager.dll"


Case Is = "XLS", "XLSM", "XLSX"

  iconToUse = "C:\Windows\Installer\{91140000-0011-0000-0000-0000000FF1CE}\xlicons.exe"


Case Is = "PDF"

  iconToUse = "C:\Windows\Installer\{AC76BA86-1033-F400-7761-000000000004}\_PDFFile.ico"


Case Else

  iconToUse = "C:\Windows\system32\packager.dll"

End Select
'****** ds added *******
Dim curFile As OLEObject
On Error Resume Next 'continue even if error so we can analyze if curFile is 
an object or not...
Set curFile = ActiveSheet.OLEObjects.Add(Filename:=fullFileName, Link:= _
False, DisplayAsIcon:=True, IconFileName:= _
iconToUse, IconIndex:=0, IconLabel:=fullFileName)
If curFile Is Nothing Then
'not an object, didn't work. turn diff color
MsgBox ("File was not attached successfully!")
ATL.BackColor = &H8080FF
Else
'curFile is NOT nothing; it is an object so it worked!
MsgBox ("File attached successfully!")
ATL.BackColor = &H80FF80
End If
On Error GoTo 0 'resume normal error catching
'****** end ds ********
End Sub
...