Sub SplitWindowsSub(wName() As String, IsSplitH As Boolean)
    Dim wins As Windows
    Set wins = Application.Windows
    Dim wCount As Long
    wCount = UBound(wName)
    Dim i As Long
    Dim wh As Double, ww As Double
    wh = Application.UsableHeight    'エクセルウィンドウ内側の高さ
    ww = Application.UsableWidth     'エクセルウィンドウ内側の幅
    If IsSplitH Then
        wh = wh / (wCount + 1)
    Else
        ww = ww / (wCount + 1)
    End If
    
    Dim wLeft As Long, wTop As Long
    Dim win As Window
    For i = 0 To wCount
        Set win = wins(wName(i))
        win.WindowState = xlNormal
        With win
            .Height = wh
            .Width = ww
            .Top = 0 + wTop
            .Left = 0 + wLeft
            .Activate
        End With
        If IsSplitH Then
            wTop = wTop + win.Height
        Else
            wLeft = wLeft + win.Width
        End If
    Next
End Sub

エクセルVBA、チェックボックス付きのListBoxのInputBox？を作ってみた ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14652565.html#14652565

園芸サイトによくある植え付けや収穫時期を表す図表をエクセルのグラフで作ってみたメモ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14662126.html

気象庁 Japan Meteorological Agency
http://www.jma.go.jp/jma/index.html

園芸サイトによくある植え付けや収穫時期を表す図表をエクセルのグラフで作ってみたメモ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14662126.html

Sub testsplitrow()
    ActiveWindow.SplitRow = 3
End Sub

Sub SplitFreezePanes()
    If ActiveWorkbook.Windows.Count <> 1 Then Exit Sub
    Dim oldW As Window: Set oldW = ActiveWindow
    Dim newW As Window
    Set newW = ActiveWindow.NewWindow '新しいウィンドウを開く
    Dim activeS As Worksheet
    Set activeS = ActiveSheet 'アクティブシートを記録
     '元のウィンドウにウィンドウ枠固定があった場合
     '新しいウィンドウも同じ位置で枠固定する
     'これをシートごとに設定する
    Application.ScreenUpdating = False
    Dim splitR As Long, splitC As Long
    Dim ss As Worksheet
    For i = 1 To oldW.SheetViews.Count
        '元の枠固定位置を取得
        'ウィンドウとシートをアクティブにしないと取得できない
        oldW.Activate
        Set ss = oldW.SheetViews.Item(i).Sheet
        ss.Activate
        If oldW.FreezePanes = True Then '枠固定されているものだけ
            splitR = oldW.SplitRow      '行位置
            splitC = oldW.SplitColumn   '列位置
            '新しく開かれたウィンドウに枠固定指定
            newW.Activate 'アクティブにしないと設定できない
            Set ss = oldW.SheetViews.Item(i).Sheet
            ss.Activate
            Dim r As Range
            Set r = ss.Cells(splitR + 1, splitC + 1)
            r.Activate '枠固定はアクティブセルの位置のみで指定できる
            newW.FreezePanes = True 'アクティブセルの位置で枠固定
        End If
    Next
    '元のアクティブシートをそれぞれのウィンドウでアクティブにする
    oldW.Activate
    activeS.Activate
    newW.Activate
    activeS.Activate
    '水平2分割整列
    ActiveWorkbook.Windows.Arrange xlArrangeStyleHorizontal
    Application.ScreenUpdating = True
End Sub

午後ツールその53、ウィンドウの整列、異なるブック(ウィンドウ)の整列 ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14655664.html

Sub AddTextBoxFromCellsValue2()
  '選択されているのがセル以外なら何もしないで終了
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Dim myCells As Range
    Set myCells = Selection
    Set myCells = myCells.Resize(myCells.Rows.Count, 1) '左端の一列
    Dim tlCell As Range
    Set tlCell = myCells.Cells(1) '左上のセル
    
     'テキストボックスに表示する文字列を作成
    Dim str As String: str = tlCell.text
    Dim i As Integer
    For i = 2 To myCells.Cells.Count
        str = str & vbNewLine & myCells.Cells(i).text
    Next
    
    'テキストボックス作成
    Dim myTB As Shape
    Set myTB = ActiveSheet.Shapes.AddTextbox( _
                msoTextOrientationHorizontal, _
                tlCell.Left, tlCell.Top, 100, 10)
    myTB.TextFrame.AutoSize = True 'オートサイズを有効にする
    myTB.Placement = xlMove 'セルに合わせて移動するけどサイズ変更しない
'    myTB.Placement = xlFreeFloating '移動もサイズ変更もしない
    
    With myTB.TextFrame2.TextRange
        .text = str
'       フォントの指定(選択セルのフォントと同じ)
        Dim myFont As Font: Set myFont = tlCell.Font
        With .Font
            .Name = myFont.Name
            .NameFarEast = myFont.Name
            .Size = myFont.Size
        End With
    End With
End Sub

• フォントとフォントサイズは選択セルの左上と同じものになる
• テキストに合わせてサイズを調整するにチェックが入った状態になる
• セルに合わせて移動するがサイズ変更はしない

複数行のセルの値をまとめて1つのテキストボックスにするマクロ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14674215.html

• 行ごとのフォントとフォントサイズに対応
• 文字ごとの色に対応
• 背景色は左上のセルと同じにするようにした、塗りつぶしなしやグラデーションの場合は白背景になる
• テキストボックスのサイズとプロパティのオブジェクトの位置関係はセルに合わせて移動もサイズ変更もしないに変更した

Sub AddTextBoxFromCellsValue3()
  '選択されているのがセル以外なら何もしないで終了
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Dim myCells As Range: Set myCells = Selection
     '左端の一列
    Set myCells = myCells.Resize(myCells.Rows.Count, 1)
    Dim tlCell As Range
    Set tlCell = myCells.Cells(1) '左上のセル
    
     'テキストボックスに表示する文字列を作成
    Dim str As String: str = tlCell.text
    Dim i As Integer
    For i = 2 To myCells.Cells.Count
        str = str & vbNewLine & myCells.Cells(i).text
    Next
        
    'テキストボックス作成
    Dim myTB As Shape
    Set myTB = ActiveSheet.Shapes.AddTextbox( _
                msoTextOrientationHorizontal, _
                tlCell.Left, tlCell.Top, 100, 10)
    With myTB
        .TextFrame.AutoSize = True 'オートサイズを有効にする
'        .Placement = xlMove 'セルに合わせて移動するけどサイズ変更しない
       .Placement = xlFreeFloating '移動もサイズ変更もしない

        '背景色設定、左上のセルの色が単色ならその色にする
        If tlCell.Interior.ColorIndex <> xlColorIndexAutomatic And _
            tlCell.Interior.ColorIndex <> xlColorIndexNone Then
            .Fill.ForeColor.Rgb = tlCell.Interior.Color
        End If
        '文字の設定
        With .TextFrame2.TextRange
            .text = str '文字列指定
            For i = 1 To .Paragraphs.Count
                'フォントカラーの指定
                Call SetFontColor(.Paragraphs(i), myCells(i))
                'フォントの指定
                Call SetFontToParagraph(.Paragraphs(i), myCells(i))
            Next
        End With
    End With
End Sub

'Paragraphのフォントカラーをセルのフォントカラーに合わせる
Sub SetFontColor(p As TextRange2, r As Range)
    'セルのフォントカラーがNullなら複数の色が指定されているので
    '1文字ごとに色指定する
    If IsNull(r.Font.Color) Then
        For i = 1 To p.Characters.Count
            p.Characters(i, 1).Font.Fill.ForeColor.Rgb _
                = r.Characters(i, 1).Font.Color
        Next
    Else
        p.Font.Fill.ForeColor.Rgb = r.Font.Color
    End If
End Sub

'Paragraphのフォントをセルのフォントに合わせる
Sub SetFontToParagraph(p As TextRange2, r As Range)
    Dim f As Font: Set f = r.Font
    With p.Font
        .Name = f.Name
        .NameFarEast = f.Name
        .Size = f.Size
    End With
End Sub

Sub ChangeTabSpace()
    Dim s As Shape
    Set s = Selection.ShapeRange.Item(1)
    Dim tss As TabStops2
    Set tss = s.TextFrame2.TextRange.ParagraphFormat.TabStops
    tss.DefaultSpacing = 20'タブの既定値変更
End Sub

Sub ChangeTabSpace2()
    Selection.ShapeRange.Item(1).TextFrame2.TextRange.ParagraphFormat.TabStops.DefaultSpacing = 20 'タブの既定値変更
End Sub

Sub DeleteTabStops()
    Dim s As Shape
    Set s = Selection.ShapeRange.Item(1)
    Dim ps As TextRange2
    Set ps = s.TextFrame2.TextRange.Paragraphs
    Dim tss As TabStops2
    Dim i As Long
    Dim ts As TabStop2
    For i = 1 To ps.Count
        Set tss = ps.Item(i).ParagraphFormat.TabStops
        For Each ts In tss
            ts.Clear'消去
        Next
    Next
End Sub

Sub testTableTextBox()
      '選択されているのがセル以外なら何もしないで終了
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Dim myCells As Range
    Set myCells = Selection
    Dim tlCell As Range
    Set tlCell = myCells.Cells(1) '左上のセル
    
     'テキストボックスに表示する文字列を作成
    Dim str As String
    Dim rRow As Range
    str = testGetString(myCells)
    
    'テキストボックス作成
    Dim myTB As Shape
    Set myTB = ActiveSheet.Shapes.AddTextbox( _
                msoTextOrientationHorizontal, _
                tlCell.Left, tlCell.Top, 100, 10)
    myTB.TextFrame.AutoSize = True 'オートサイズを有効にする
    myTB.Placement = xlMove 'セルに合わせて移動するけどサイズ変更しない
'    myTB.Placement = xlFreeFloating '移動もサイズ変更もしない
    
    With myTB.TextFrame2.TextRange
        .text = str
'       フォントの指定(選択セルのフォントと同じ)
        Dim myFont As Font: Set myFont = tlCell.Font
        With .Font
            .Name = myFont.Name
            .NameFarEast = myFont.Name
            .Size = myFont.Size
        End With
    End With
End Sub

'渡されたセル範囲の値(text)を表形式用に繋げて返す
'1行の値はタブ文字で繋げて、行が変わったら改行文字でつなげる
Function testGetString(r As Range) As String
    Dim str As String
    Dim rr As Range
    Set rr = r.Cells.Rows(1)
    str = GenerateString(rr, True)
    '2行以上あるとき
    If r.Rows.Count > 1 Then
        Dim i As Long
        For i = 2 To r.Rows.Count
            Set rr = r.Cells.Rows(i)
            str = str & vbNewLine & GenerateString(rr, True)
        Next
    End If
    testGetString = str
    
End Function

'文字列生成、
'渡されたセル範囲にある文字列を繋げて返す
'渡すセル範囲は1行か1列のどちらか
'horiはHorizontalで
'Trueならタブ文字でつなげる
'Falseなら改行文字でつなげる
Function GenerateString(r As Range, Optional hori As Boolean = False) As String
    Dim str As String
    str = r.Cells(1).text
    If r.Cells.Count = 1 Then
        GenerateString = str
        Exit Function
    End If
    '2セル以上のとき
    Dim i As Long
    If hori Then
        'タブ文字でつなげる
        For i = 2 To r.Cells.Count
            str = str & vbTab & r.Cells(i).text
        Next
    Else
        '改行文字でつなげる
        For i = 2 To r.Cells.Count
            str = str & vbNewLine & r.Cells(i).text
        Next
    End If
    GenerateString = str
End Function

複数行のセルの値をまとめて1つのテキストボックスにするマクロその2 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14676410.html

図形のテキストボックスのタブ文字、タブ位置とかのメモ、選択セル範囲を1つのテキストボックスにするマクロ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14686706.html

'中央揃え、右揃えに対応版
'セル範囲をテキストボックス
Sub testTableTextBox2()
      '選択されているのがセル以外なら何もしないで終了
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Dim myCells As Range:    Set myCells = Selection
    Dim tlCell As Range:    Set tlCell = myCells.Cells(1) '左上のセル
    
    'テキストボックス作成
    Dim myTB As Shape
    Set myTB = ActiveSheet.Shapes.AddTextbox( _
                msoTextOrientationHorizontal, _
                tlCell.Left, tlCell.Top, 100, 10)
    myTB.TextFrame.AutoSize = True 'オートサイズを有効にする
    myTB.Placement = xlMove 'セルに合わせて移動するけどサイズ変更しない
'    myTB.Placement = xlFreeFloating '移動もサイズ変更もしない
    
    'テキストボックスに表示する文字列を作成
    Dim str As String
    Dim rRow As Range
    str = testGetString2(myCells)
    'テキストボックスにテキスト指定
    myTB.TextFrame2.TextRange.text = str
    
    'フォントカラーとフォントの設定
    Call SetFontColorAndFont(myTB, myCells)
    'セル幅に合わせたタブ位置を設定する
    Call AddTabPosition(myTB, myCells)
    
End Sub

複数行のセルの値をまとめて1つのテキストボックスにするマクロ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14674215.html

複数行のセルの値をまとめて1つのテキストボックスにするマクロその2 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14676410.html

図形のテキストボックスのタブ文字、タブ位置とかのメモ、選択セル範囲を1つのテキストボックスにするマクロ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14686706.html

• ほとんど違いがない
• 移動させるときは図形のほうがラク
• 初期の見た目が違うけど設定で全く同じようにすることができる
• これからはテキストボックスのかわりに図形にテキストを追加して使おう

• TextFrame2.ParagraphFormat.Alignment = msoAlignLeft
• TextFrame.HorizontalAlignment = xlHAlignLeft
• TextFrame.VerticalAlignment = xlVAlignTop
• Line.Weight = 0.75
• Line.ForeColor.ObjectThemeColor = msoThemeColorLight1
• Line.ForeColor.TintAndShade = -0.5
• Line.ForeColor.RGB = Line.ForeColor.RGB
• Fill.ForeColor = vbWhite

選択セル範囲を図形のテキストボックスにするマクロその2、タブ位置調整 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14689931.html

Sub testFont2()
    Dim s As Shape
    Set s = Selection.ShapeRange.Item(1)
    Dim f2 As Font2
    Set f2 = s.TextFrame2.TextRange.Font
    f2.UnderlineStyle = msoUnderlineSingleLine '下線
'    f2.UnderlineStyle = msoUnderlineDoubleLine '二重線の下線
End Sub

'フォント太字
Sub SetFontBoldSub(sText As TextRange2, r As Range)
    If IsNull(r.Font.Bold) Then
        For i = 1 To sText.Characters.Count
            sText.Characters(i, 1).Font.Bold = _
                r.Characters(i, 1).Font.Bold
        Next
    Else
        sText.Font.Bold = r.Font.Bold
    End If
End Sub

'フォント下線
Sub SetFontUnderLineSub(sText As TextRange2, r As Range)
    Dim rf As Font
    Dim sf As Font2
    If IsNull(r.Font.Underline) Then
        For i = 1 To sText.Characters.Count
            Set rf = r.Characters(i, 1).Font
            Set sf = sText.Characters(i, 1).Font
            Select Case rf.Underline
                Case xlUnderlineStyleSingle, xlUnderlineStyleSingleAccounting
                    sf.UnderlineStyle = msoUnderlineSingleLine
                Case xlUnderlineStyleDouble, xlUnderlineStyleDoubleAccounting
                    sf.UnderlineStyle = msoUnderlineDoubleLine
            End Select
        Next
    Else
        Set rf = r.Font
        Set sf = sText.Font
        Select Case rf.Underline
            Case xlUnderlineStyleSingle, xlUnderlineStyleSingleAccounting
                sf.UnderlineStyle = msoUnderlineSingleLine
            Case xlUnderlineStyleDouble, xlUnderlineStyleDoubleAccounting
                sf.UnderlineStyle = msoUnderlineDoubleLine
        End Select
    End If
End Sub

選択セル範囲を図形のテキストボックスにするマクロその3、図形の四角形をテキストボックス化 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14701540.html

Sub yohaku()
    Dim s As Shape
    Set s = Selection.ShapeRange.Item(1)
    With s.TextFrame2
        .MarginBottom = 3.6
        .MarginLeft = 7.2
        .MarginRight = 7.2
        .MarginTop = 3.6
    End With
End Sub

選択セル範囲を図形のテキストボックスにするマクロその4、フォントの取り消し線、下付き上付き文字、下線 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14705381.html

気象庁 Japan Meteorological Agency
http://www.jma.go.jp/jma/index.html

ベランダ菜園、1年半前に収穫したにんにくを植えた結果 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14593610.html

ベランダ菜園いちご、7月から11月までのまとめ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14587779.html

にんにく放置栽培12月中旬から2015/02/12までのまとめ ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/12713195.html

Sub ボタン追加するマクロ()
    Dim bName As String:    bName = "形式を選択して"
    Dim ind As Long
    Dim c As CommandBarControl

    For Each c In Application.CommandBars("Cell").Controls
        If Left(c.Caption, Len(bName)) = bName Then
            ind = c.Index
            Exit For
        End If
    Next
    
    '行列を入れ替える
    Application.CommandBars("Cell").Controls.Add id:=5838, before:=ind
    '書式の貼り付け
    Application.CommandBars("Cell").Controls.Add id:=369, before:=ind
    '値の貼り付け
    Application.CommandBars("Cell").Controls.Add id:=370, before:=ind
    '図をファイルから挿入
    Set c = Application.CommandBars("Cell").Controls.Add(id:=2619)
    c.Caption = "図をファイルから挿入"
End Sub

    '行列を入れ替える
    Application.CommandBars("Cell").Controls.Add id:=5838, before:=ind

    '行列を入れ替える
    Set c = Application.CommandBars("Cell").Controls.Add(id:=5838, before:=ind)
    c.Caption = "行列を入れ替えて貼り付け"

Sub コマンドボタンID探索()
    Dim cbName As String
    cbName = "書式の貼り付け" '←探したいコマンドの名前を入れる
    'コマンドの名前はエクセルのオプション→ユーザー設定→
    'コマンドの選択→すべてのコマンドで表示された一覧から探す
    'CommandBarの中のCommandBarControlの中のCommandBarControlまで探索する
    Dim strLen As Long
    strLen = Len(cbName)
    Dim isFind As Boolean:  isFind = False
    Dim ccCount As Long
    
    On Error Resume Next
    Dim str As String
    Dim c As CommandBar
    Dim cc As CommandBarControl
    Dim ccc As CommandBarControl
    '一度に探索するとエクセル自体が落ちるので50づつくらいにした方がいい
    'For j = 1 To 50
    'For j = 51 To 100
    'For j = 101 To 150
    'For j = 151 To 200
    For j = 1 To Application.CommandBars.Count '179
        Set c = Application.CommandBars.Item(j)
        For i = 1 To c.Controls.Count
            Set cc = c.Controls.Item(i)
            ccCount = cc.Controls.Count
            If ccCount = 0 Then GoTo ccErr
            For k = 1 To ccCount
                Set ccc = cc.Controls.Item(k)
                If Left(ccc.Caption, strLen) = cbName Then
                    str = "CommandBar.Index = " & c.Index & " : " & c.NameLocal & vbNewLine
                    str = str & "CommandBarControl.Index = " & cc.Index & " : " & cc.Caption & vbNewLine
                    str = str & "CommandBarControl.Index = " & ccc.Index & " : " & ccc.Caption & vbNewLine
                    str = str & "ID = " & ccc.id
                    MsgBox str
                    isFind = True
                End If
            Next
            If Left(cc.Caption, strLen) = cbName Then
                str = "CommandBar.Index = " & c.Index & " : " & c.NameLocal & vbNewLine
                str = str & "CommandBarControl.Index = " & cc.Index & " : " & cc.Caption & vbNewLine
                str = str & "ID = " & cc.id
                MsgBox str
                isFind = True
            End If
ccErr:
        Next
    Next
    If isFind = False Then
        MsgBox cbName & " は見つかりませんでした"
    End If
End Sub

Sub コマンドボタンID探索()
    Dim cbName As String
    cbName = "書式の貼り付け" '←探したいコマンドの名前を入れる
    'コマンドの名前はエクセルのオプション→ユーザー設定→
    'コマンドの選択→すべてのコマンドで表示された一覧から探す
    'CommandBarの中のCommandBarControlの中のCommandBarControlまで探索する
    Dim strLen As Long
    strLen = Len(cbName)
    Dim ccCount As Long
    
    On Error Resume Next
    Dim str As String
    Dim c As CommandBar
    Dim cc As CommandBarControl
    Dim ccc As CommandBarControl
    '一度に探索するとエクセル自体が落ちるので50づつくらいにした方がいい
    'For j = 1 To 50
    'For j = 51 To 100
    'For j = 101 To 150
    'For j = 151 To 200
    For j = 1 To Application.CommandBars.Count '179
        Set c = Application.CommandBars.Item(j)
        For i = 1 To c.Controls.Count
            Set cc = c.Controls.Item(i)
            ccCount = cc.Controls.Count
            If ccCount = 0 Then GoTo ccErr
            For k = 1 To ccCount
                Set ccc = cc.Controls.Item(k)
                If Left(ccc.Caption, strLen) = cbName Then
                    str = str & "ID = " & ccc.id
                    MsgBox str
                End If
            Next
            If Left(cc.Caption, strLen) = cbName Then
                str = str & "ID = " & cc.id
                MsgBox str
            End If
ccErr:
        Next
    Next
End Sub

選択セル範囲を図形のテキストボックスにするマクロその3、図形の四角形をテキストボックス化 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14701540.html

その32、タイトルつきテキストボックスをアドインの午後のパレットに追加した、外枠も ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/13154302.html

午後ツールその54、ウィンドウ枠の固定を引き継いで新しいウィンドウを開く ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14667685.html

選択セル範囲を図形のテキストボックスにするマクロその5、テキストボックスの余白と行間隔 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14707271.html

複数行のセルの値をまとめて1つのテキストボックスにするマクロ ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14674215.html

午後ツールその55、選択セル範囲を図形のテキストボックスにする、印刷用の点線を消すマクロを追加 ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14715274.html

Sub testtabs5()
    Dim s As Shape
    Set s = Selection.ShapeRange.Item(1)
    Dim ts01 As TabStop2, ts02 As TabStop2
    Dim type01 As MsoTabStopType, type02 As MsoTabStopType
    
    Dim pf As ParagraphFormat2
    Set pf = s.TextFrame2.TextRange.Paragraphs.Item(1).ParagraphFormat
    Set ts01 = pf.TabStops.Item(1)
    Set ts02 = pf.TabStops.Item(2)
    type01 = pf.TabStops.Item(1).Type
    type02 = pf.TabStops.Item(2).Type        
End Sub

図形のテキストボックスの段落のタブの配置をVBAで正確に取得できないことがあったので調べてみた ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14718810.html

午後ツールその55、選択セル範囲を図形のテキストボックスにする、印刷用の点線を消すマクロを追加 ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14715274.html

にんにくとイチゴのベランダ菜園、2016年12月中旬から今日までの様子 ( ガーデニング ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14709023.html

午後ツールその56、図形の中の文字列をセルにコピーする ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14720818.html

午後ツールその57、見出し付きテキストボックス作成アドインりらいと ( Windows ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14731600.html