ich habe mir von http://www.heise.de/download/excel2latex.html das Add-In
https://www.herber.de/bbs/user/83797.xla
heruntergeladen.
Ich habe es dann in XL 2000 über Extras---Add-In-Manager und in
XL 2007 über OfficeSymbol---XLOptionen---Add-Ins---Verwalten...
eingebunden.
Leider finde ich keinerlei Möglichkeiten das Add-Inn zu benutzen :-(
Was muß ich tun um es benutzen zu können?
Nachstehend der Code aus ThisWorkbook der xla.
Starte ich die Prozedur:
Private Sub Workbook_Open()
If ActiveWorkbook Is Nothing Then CreateCommandBar
End Sub
mit F8 so wird der Then-Zwieg inIf ActiveWorkbook Is Nothing Then CreateCommandBar
nicht ausgeführt. Schon das verstehe ich nicht, wieso ist activeWorkbook Nothing?
Danke ^ Gruß
Reinhard
Option Explicit
Private Sub Workbook_Open()
If ActiveWorkbook Is Nothing Then CreateCommandBar
End Sub
Sub CreateCommandBar()
CreateMenuItem "Convert table to LaTeX", "Conversion.LaTeX"
CreateMenuItem "Convert all stored tables to LaTeX", "Conversion.LaTeXAllToFiles"
End Sub
Private Sub CreateMenuItem(ByVal Caption As String, ByVal Action As String)
Dim ctl As CommandBarControl
Dim i As Long
Dim ControlCollection As New Collection
Dim myMenubar As CommandBar, toolsMenu As CommandBarPopup, newMenuItem As CommandBarControl, _
newButton As CommandBarControl
'First Create Menu Item
Set myMenubar = Application.CommandBars.ActiveMenuBar
Set toolsMenu = myMenubar.Controls(6)
Set newMenuItem = myMenubar.FindControl(Tag:=Action, recursive:=True)
If Not newMenuItem Is Nothing Then newMenuItem.Delete
Set newMenuItem = toolsMenu.Controls.Add(Type:=msoControlButton, Before:=3)
newMenuItem.Tag = Action
' Versions before Office 2007 only (=> ribbons!)
If CLng(Split(Application.Version, ".")(0)) 0 Then myToolBar.Controls(1).Delete
myToolBar.Position = msoBarTop
myToolBar.Visible = True
Set newButton = myToolBar.Controls.Add(msoControlButton)
End If
If Not newButton Is Nothing Then
ControlCollection.Add newButton
End If
If Not newMenuItem Is Nothing Then
ControlCollection.Add newMenuItem
End If
For Each ctl In ControlCollection
ctl.OnAction = Action
ctl.FaceId = 107
ctl.TooltipText = Caption
ctl.Caption = Caption
Next
End Sub