キロメント(アーカイブ)

クリップボードを経由せず図形やグラフをコピーする方法について説明していきます。 コピー方法 Shape.Duplicate メソッドを利用することで、クリップボードを経由せず図形やグラフをコピーできます。 サンプルコード Sub Macro1() '図形をコピーする Dim shepeObj As Shape Set shepeObj = ActiveSheet.Shapes("正方形/長方形 1").Duplicate 'コピーした図形に変更を加える With shepeObj .Name = "コピー図形" .Top = 100 .Left = 100 .Height = 300 .Width = 100 End WithEnd Sub 注意点 Shape.Duplicate メソッドを使う場合、以下の場所にはコピーできません。 コピー元の図形やグラフを別のシートへコピーする コピー元の図形やグラフを別のブックへコピーする

通常は以下のようなコードで最終列を求められますが、最終列が非表示セルの場合は正常に求めることができません。 MsgBox Cells(1, Columns.Count).End(xlToLeft).Column 最終列のセル非表示になることが想定される場合は、以下のコードを利用することで正常に最終列を求めることができます。

通常は以下のようなコードで最終列を求められますが、最終列が非表示セルの場合は正常に求めることができません。