ボンジュール・マドモアゼル

本サイトの情報は自己責任にてご利用下さい。

[未分類] ???

 
spt_demo.xls

誰も見に来ないけど、これだけは残しておくか

次は自分用のメモ。
Public Sub DrawRectangle()


Dim aShape As Shape
With ActiveCell
Set aShape = .Parent.Shapes.AddShape(1, .Left, .Top, .Width, .Height)
End With

With aShape
.Fill.Visible = False
.Line.Weight = 0.25
End With

End Sub
<<スチュアートの明解ガロア理論の疑問点 | ホーム | フリーフォーム AddNodes エラー回避策>>

コメント

コメントの投稿

管理者にだけ表示を許可する

画像の文字を半角数字で下記ボックスに記入ください。
文字が読みにくい場合はブラウザの更新をすると新しい文字列が表示されます。