Caption in Makro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet Application.ScreenUpdating = False ActiveWorkbook.Worksheets("Error").Visible = True For Each ws In ActiveWorkbook.Worksheets If ws.name <> "Error" Then ws.Visible = xlSheetVeryHidden End If Next ActiveWorkbook.Save ThisWorkbook.Close False 'schließt die Tabelle ohne zu speichern End Sub

Sub Add_Amount_Of_Checkboxes() Dim i As Integer, chkC As Integer Dim tarC As Range, myChk As OLEObject On Error Resume Next chkC = CInt(InputBox("Wieviele Checkboxen werden benötigt?", "Checkboxen einfügen", 25)) If Not IsNumeric(chkC) Or chkC = 0 Or IsEmpty(chkC) Then Exit Sub Set tarC = Application.InputBox("Markieren Sie die Zelle, ab der die Checkboxen eingefügt werden soll", "Zielbereich", "B:B", Type:=8) If tarC Is Nothing Or tarC.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False For i = tarC.Row To chkC Set myChk = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1") With myChk .OLEFormat.Object.Caption = "Dein Text" .Height = Cells(i, tarC.Column).Height .Width = Cells(i, tarC.Column).Width - 0.5 .Top = Cells(i, tarC.Column).Top + 0.5 .Left = Cells(i, tarC.Column).Left + 0.5 'Linked Cell ist die unter der Checkbox liegende Zelle .LinkedCell = .TopLeftCell.Offset(0, 0).Address .Object.Value = False .Object.FontSize = 8 End With Next i Application.ScreenUpdating = True End Sub

Hi,
du hast die Größenangabe vergessen, hier mal aus der Hilfe:
Ausdruck.Add(ClassType, FileName, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height)
Ausdruck Erforderlich. Ein Ausdruck, der ein OLEObjects-Objekt zurückgibt.
ClassType Optionaler Variant-Wert. (Sie müssen entweder ClassType oder FileName angeben). Eine Zeichenfolge mit dem programmtechnischen Bezeichner für das zu erstellende Objekt. Wenn ClassType angegeben wird, werden FileName und Link ignoriert.
FileName Optionaler Variant-Wert. (Sie müssen entweder ClassType oder FileName angeben.) Eine Zeichenfolge, die die Datei angibt, aus der das OLE-Objekt erstellt werden soll.
Link Optionaler Variant-Wert. True, wenn das neue auf Datei FileName basierende OLE-Objekt mit der Datei verknüpft werden soll. Wenn es nicht verknüpft wird, so wird das Objekt als Dateikopie erstellt. Der Standardwert ist False.
DisplayAsIcon Optionaler Variant-Wert. True, wenn das neue OLE-Objekt als Symbol oder in seiner normalen Bilddarstellung angezeigt werden soll. Falls True, kann mit IconFileName und IconIndex ein Symbol angegeben werden.
IconFileName Optionaler Variant-Wert. Eine Zeichenfolge, die die Datei angibt, die das anzuzeigende Symbol enthält. Dieses Argument wird nur verwendet, wenn DisplayAsIcon den Wert True hat. Wird dieses Argument nicht angegeben oder enthält die Datei keine Symbole, so wird das Standardsymbol für die OLE-Klasse verwendet.
IconIndex Optionaler Variant-Wert. Die Nummer des Symbols in der Symboldatei. Dieses Argument wird nur verwendet, wenn DisplayAsIcon den Wert True hat und IconFileName auf eine gültige Datei mit Symbolen verweist. Falls ein Symbol mit diesem Index in der in IconFileName angegebenen Datei nicht existiert, wird das erste Symbol in der Datei verwendet.
IconLabel Optionaler Variant-Wert. Eine Zeichenfolge, die eine unter dem Symbol anzuzeigende Beschriftung angibt. Dieses Argument wird nur verwendet, wenn DisplayAsIcon den Wert True hat. Wenn dieses Argument nicht angegeben wird oder die Zeichenfolge leer ("") ist, wird keine Beschriftung angezeigt.
Left, Top Variant erforderlich. Die Anfangskoordinaten des neuen Objekts (in Punkt), relativ zur oberen linken Ecke der Zelle A1 oder zur oberen linken Ecke eines Diagramms.
Width, Height Optionaler Variant-Wert. Die Anfangsgröße des neuen Objekts in Punkt.
In diesem Beispiel wird dem ersten Blatt eine Befehlsschaltfläche hinzugefügt.
Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=150, Height:=10
mfg Fred

Hallo
Fehler meinerseits:
Sub Add_Amount_Of_Checkboxes()
    Dim i As Integer, chkC As Integer
    Dim tarC As Range, myChk As OLEObject
    On Error Resume Next
    chkC = Cint(InputBox("Wieviele Checkboxen werden benötigt?", "Checkboxen einfügen", 25))
    If Not IsNumeric(chkC) Or chkC = 0 Or IsEmpty(chkC) Then Exit Sub
    Set tarC = Application.InputBox("Markieren Sie die Zelle, ab der die Checkboxen eingefügt werden soll", "Zielbereich", "B:B", Type:=8)
    If tarC Is Nothing Or tarC.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    For i = tarC.Row To chkC
        Set myChk = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1")
        With myChk
            .Height = Cells(i, tarC.Column).Height
            .Width = Cells(i, tarC.Column).Width - 0.5
            .Top = Cells(i, tarC.Column).Top + 0.5
            .Left = Cells(i, tarC.Column).Left + 0.5
            'Linked Cell ist die unter der Checkbox liegende Zelle
            .LinkedCell = .TopLeftCell.Offset(0, 0).Address
            .Object.Value = False
            .Object.FontSize = 8
            .Object.Caption = "Dein Text"
        End With
    Next i
    Application.ScreenUpdating = True
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Caption in Makro

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread