お世話になります。

かんたんレイアウトを、今までExcel2010上で利用していて特に問題がなかったのですが、パソコンを入れ替えでExcelが2013になったところ、一部不具合が起きています。

具体的な現象としましては、Excelをいったん終了させると、次回起動時にメニューバーから、かんたんレイアウトのタイトル「アドイン」が消えてしまいます。※ただし、アドインの設定画面から再登録操作をすればメニューバーに復活します。


インストール自体はうまく行っており、利用上は特に問題が無いのですが、Excelを再起動する度にメニューから消えてしまうので、毎回再登録操作を行わなければなりません。

うちだけの問題なのかわかりませんが、もしお心当たりがありましたら、調査いただければ幸いです。

---

[50] Re:かんたんレイアウト Excel2013でメニューから「アドイン」が消えます
Name: takana
Date: 2015/10/24 13:54

お問い合わせありがとうございます。

当方には、Excel2013の環境がありませんので、確認できないのですが、
例えば、アドインファイルの格納フォルダが関係しているとか
そういうことはないでしょうか、

..\AddIns
フォルダに格納されていますか？

返信する

---

[51] Re[2]:かんたんレイアウト Excel2013でメニューから「アドイン」が消えます
Name: malibog
Date: 2015/10/26 09:04

回答ありがとうございます。

アドインファイルの格納フォルダは

C:\Users\<ユーザ名>\AppData\Roaming\Microsoft\AddIns
で、その下に「EasyLout43」というフォルダを作ってその中に入れていたのですが、試しにアドインファイル群をAddIns直下に移動して再登録したところ、問題なく表示されるようになりました。

お騒がせしました。すみません。

返信する

次のように変更することで、ユーザ定義ツールバーをDelphi XEにインストールできました。
修正が必要なのはDelphi2009から文字列がユニコード文字列に変更された影響だと思います。

1.GlobalUnitのWideStringToUtf8関数とUtf8ToWideString関数を削除する。

2.WideStringToUtf8関数とUtf8ToWideString関数の使用をやめる。
ModuleユニットのTMainModule.OnFindFormClick関数
// FSearchText := WideStringToUtf8(FindDlg.FindText);
FSearchText := FindDlg.FindText;
GlobalUnitユニットのGetCursorWord関数
// Result := Utf8ToWideString(EditBlock.Text);
Result := EditBlock.Text;

メソッド一覧以外の機能は、C++Builder XEでも使えるみたいです。

---

[46] Re:ユーザ定義ツールバーをDelphi XEにインストールできました。
Name: takana
Date: 2011/07/21 18:52

yamamotoさん

わざわざご報告ありがとうございます。
また何かありましたら、よろしくお願いします。

返信する

'*****************************************************************************
'[ 関数名 ]　MergeRows
'[ 概 要 ]　先頭行が結合セルの時、先頭行から底の行まで縦方向に結合する
'[ 引 数 ]　objTopRow：結合の先頭行、objBottomRow：結合の底の行
'[ 戻り値 ]　なし
'*****************************************************************************
Private Sub MergeRows(ByRef objTopRow As Range, ByRef objBottomRow As Range)
Dim i As Long
Dim lngLast As Long

'選択されたすべての列を整備する
lngLast = objTopRow.Columns.Count

'1列毎にループ
For i = 1 To lngLast
'新しい行のセルが結合セルか
If objBottomRow.Cells(1, i).MergeCells = False Then
'元のセルが結合セルか
If objTopRow.Cells(1, i).MergeCells = True Then
Call Range(objTopRow.Cells(1, i).MergeArea, objBottomRow.Cells(1, i)).Merge
End If
End If
Next i
End Sub

'*****************************************************************************
'[ 関数名 ]　MergeRows2
'[ 概 要 ]　先頭行から底の行まで縦方向に結合する
'[ 引 数 ]　objTopRow：結合の先頭行、objBottomRow：結合の底の行
'[ 戻り値 ]　なし
'*****************************************************************************
Private Sub MergeRows2(ByRef objTopRow As Range, ByRef objBottomRow As Range)
Dim i As Long
Dim lngLast As Long

'最後のセルまで整備すれば終了する
lngLast = Cells.SpecialCells(xlCellTypeLastCell).Column

'1列毎にループ
For i = 1 To lngLast
'新しい行のセルが結合セルか
If objBottomRow.Cells(1, i).MergeCells = False Then
Call Range(objTopRow.Cells(1, i).MergeArea, objBottomRow.Cells(1, i)).Merge
End If
Next i
End Sub

'*****************************************************************************
'[ 関数名 ]　CopyVerticalBorder
'[ 概 要 ]　行の縦罫線をコピーする
'[ 引 数 ]　objFromRow：コピ－元の行、objToRow：コピー先の行
'[ 戻り値 ]　なし
'*****************************************************************************
Private Sub CopyVerticalBorder(ByRef objFromRow As Range, ByRef objToRow As Range)
Dim i As Long
Dim udtBorder(0 To 1) As TBorder '罫線の種類(左･右)
Dim lngLast As Long

If objFromRow.Columns.Count = Columns.Count Then
'最後のセルまで整備すれば終了する
lngLast = Cells.SpecialCells(xlCellTypeLastCell).Column
Else
'選択されたすべての列を整備する
lngLast = objFromRow.Columns.Count
End If

'1列毎にループ
For i = 1 To lngLast
'コピ－元のセルの罫線の種類を保存
udtBorder(0) = GetBorder(objFromRow.Columns(i).Borders(xlEdgeLeft))
udtBorder(1) = GetBorder(objFromRow.Columns(i).Borders(xlEdgeRight))
'コピー先のセルにコピー
Call SetBorder(udtBorder(0), objToRow.Columns(i).Borders(xlEdgeLeft))
Call SetBorder(udtBorder(1), objToRow.Columns(i).Borders(xlEdgeRight))
Next i
End Sub

'*****************************************************************************
'[ 関数名 ]　CopyBottomBorder
'[ 概 要 ]　行の下端の罫線をコピーする
'[ 引 数 ]　objFromRow：コピ－元の行、objToRow：コピー先の行
'[ 戻り値 ]　なし
'*****************************************************************************
Private Sub CopyBottomBorder(ByRef objFromRow As Range, ByRef objToRow As Range)
Dim i As Long
Dim udtBorder As TBorder '下端の罫線の種類
Dim lngLast As Long

If objFromRow.Columns.Count = Columns.Count Then
'最後のセルまで整備すれば終了する
lngLast = Cells.SpecialCells(xlCellTypeLastCell).Column
Else
'選択されたすべての列を整備する
lngLast = objFromRow.Columns.Count
End If

'1列毎にループ
For i = 1 To lngLast
'コピ－元のセルの罫線の種類を保存
udtBorder = GetBorder(objFromRow.Columns(i).Borders(xlEdgeBottom))
'コピー先のセルにコピー
Call SetBorder(udtBorder, objToRow.Columns(i).Borders(xlEdgeBottom))
Next i
End Sub

'*************************************************
'罫線を整える
'*************************************************
'挿入列の１セル毎に罫線をコピーする
Call CopyVerticalBorder(objRange.EntireRow, objNewRow)
Call CopyBottomBorder(objRange.EntireRow, objNewRow)
Call MergeRows(objRange.EntireRow, objNewRow)

'*************************************************
'分割を繰返す
'*************************************************
'分割数だけ、行を挿入する
For i = 3 To lngSplitCount
Call objNewRow.EntireRow.Insert
Next i

'*************************************************
'高さの整備
'*************************************************
'新しい高さに設定
If blnCheckInsert = False Then
If lngSplitCount = 2 Then
objRange.EntireRow.RowHeight = PixelToHeight(Int(lngPixel / 2 + 0.5))
objNewRow.EntireRow.RowHeight = PixelToHeight(Int(lngPixel / 2))
Else
With Range(objRange, objNewRow).EntireRow
If lngPixel < lngSplitCount Then
.RowHeight = PixelToHeight(1)
Else
.RowHeight = PixelToHeight(lngPixel / lngSplitCount)
End If
End With
End If
End If

'境界線を消す
With Range(objRange, objRange(lngSplitCount, 1)).EntireRow
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
'*************************************************
'後処理
'*************************************************
Call Range(objRange, objRange(lngSplitCount, 1)).Select
If blnCheckInsert = False Then
Call ResetPlacement
End If
Call SetOnUndo

If blnDisplayPageBreaks = True Then
ActiveSheet.DisplayAutomaticPageBreaks = True
End If
Application.ScreenUpdating = True
Exit Sub

frmEdit.OnPopupClick
「切取り」にバグあり

Styleコレクションの削除が必要

セルの分割は、新規作成のシートでは動作しますが、すでにセルの結合をされているシートなどでやろうとするとエラーになるようです。
新しく気づいた点では、セルをテキストボックスに変換はできますが、テキストボックスをセルに変換しようとすると「型が一致しません」となり、変換できません。

エクセル2000を使っていますが、うまくアドインできません。
何卒、御教示ください。

初めて投稿いたします。
エクセル2007でセルの分割を行おうとしたら
Rangeﾒｿｯﾄﾞは失敗しました：′Worksheet’オブジェクト
と表示されてしまい、操作できなくなってしまいます。
どなたか解決策を教えてください。

「かんたんレイアウト」ダウンさせていただきました、
大変重宝に使わせてもらっています、ありがとうございます。

エクセルで作表し用紙にマージン一杯に印刷していますが、
行や列の挿入、削除後の高さや幅の調整が楽に出来るようになりました。

ただ、次の点に気付きましたので解決の方法等ご教示ください。

１．「かんたんレイアウト」の寸法（ｍｍ）の表示が合っていないように思えます。
　　いろいろ調べたのですが
　　１twip ＝ １／２０ポイント
　　１ピクセル ＝ １５twip （windowsの標準画面解像度９６dpi時）
　　１論理ｃｍ ＝ ５６７twip
　　と解説されているＨＰがありました。

　　これからすると
　　１ｃｍ ＝ ５６７twip ＝ ２８．３５ポイント ＝ ３７．８ピクセル
　　１０ｃｍでは３７８ピクセルになる計算になります

　　「かんたんレイアウト」で行の高さや列の幅を３７８ピクセルにすると
　　７５ｍｍ　２８３．５ポイントと表示されます。
　　約３／４の長さになっています。