toyfish.blog

HOME
ABOUT
トップ > prog > Excel でシェイプをサイズあわせするマクロ
2003-12-17

Excel でシェイプをサイズあわせするマクロ

prog

複数のシェイプを選択してから実行すると、各シェイプのサイズを一番大きいやつに合わせる VBA マクロ。Excel 2000 で作成。

Public Sub ResizeAll()
    Dim oShape      As Object
    Dim nWidth      As Long
    Dim nHeight     As Long
    
    If TypeName(Application.Selection) = "DrawingObjects" Then
        For Each oShape In Application.Selection
            nWidth = Max(nWidth, oShape.Width)
            nHeight = Max(nHeight, oShape.Height)
        Next
        For Each oShape In Application.Selection
            oShape.Width = nWidth
            oShape.Height = nHeight
        Next
    End If
    
    
End Sub

sardine 2003-12-17 00:00

Excel でシェイプをサイズあわせするマクロ
  • もっと読む
コメントを書く
« au はじめました MMORPG のフレームワーク »
プロフィール
id:sardine id:sardine はてなブログPro
読者です 読者をやめる 読者になる 読者になる
検索
最新記事
  • Unity のメモ
  • おかしくなっていた Boot Camp サービスを再インストールできた
  • ノート PC がほしい
  • .NET: WPF のいろいろ
  • .NET: コマンドラインで WPF アプリをビルドする
カテゴリー
  • prog (261)
  • ff11 (132)
  • net (125)
  • PC (86)
  • misc (78)
  • tool (74)
  • game (68)
  • phone (35)
  • Alpha (26)
  • hatena (15)
  • mac (13)
  • icrab (5)
  • revisit (4)
  • PDA (2)
  • movie (1)
  • ff14 (1)
  • linux (1)
月別アーカイブ
リンク
  • はてなブログ
  • ブログをはじめる
  • 週刊はてなブログ
  • はてなブログPro

はてなブログをはじめよう!

sardineさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
toyfish.blog toyfish.blog

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる