はじめまして
業務効率化のためマクロを使うようになった初心者ユーザーです。
Power point2007を用いてすべてのページの画像を一括でサイズ変更と位置変更を行いたいと思っています。
見よう見まねで下記のようなマクロを組んでみたのですが、
タイトルテキストもサイズ変更されてしまうので除外したいのですが、どのようにすればよろしいでしょうか？
またこのサイズ変更した画像だけを他のpowerpointファイルに画像1枚1ページずつ自動で貼り付けたいのですが、その方法も教えてほしいです。
なお、他のファイルの既存スライドに貼り付けを行おうとしています。
（画像に関しての説明文書が既に記入済み）
お手間を取らせて申し訳ないのですが、迷える子羊に愛の手をお願いいたします。
Public Sub 画像サイズ変更と位置合わせマクロ()
Dim i As Long
For i = 1 To ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide i
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 401#
.Width = 687.09
.Left = 20#
.Top = 56.62
End With
Next
End Sub
指定の場所 例；C1に画像を挿入し、
挿入した画像を縦横比固定120パーセント、
枠を赤に太さを2.25でつけるマクロを書きたいのですがどうしても上手くいきません
赤枠と太さはどのように記述したらよろしのでしょうか？
Sub 図形リサイズ縦横比固定120パーセント()
With Selection.ShapeRange
.LockAspectRatio = msoTrue '縦横比固定
.Width = .Width * 1.2 '120%に図形サイズ変更
End With
ActiveSheet.Shapes
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(255, 0, 0) '赤枠に
.Weight = 2.25 '線の太さを2.25に
End With
End Sub
エクセルを起動した際に、急に突然、”無効なオブジェクトライブラリです。または、定義されていないオブジェクトへの参照を含んでいます。”との表示が出てきました。
色々検索したのですが、原因も対処方法もよく分かりません。または、別なものをインストールした記憶もありません。
エクセルのバージョンは最近のものですが、エクセル97-2003のファイルもあり、そのファイルも使用しているために起こった症状なのでしょうか？（97-2003ファイル起動時にも発生します。）
どなたか、詳しい方がおりましたら、原因、対処方法をご教授願います。
OSはwindows xp pro officeは2007です。
よろしくお願いいたします。
vista+オフィス２００７です。
エクセルで
---------------------------------------------------------
Sub ie_test()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.google.co.jp/"
End Sub
---------------------------------------------------------
を実行したいのですができません。
Set objIE = CreateObject("InternetExplorer.Application")
の部分で、しばらく固まり、その後
「実行時エラー'-2147467259(80004005)':
オートメーションエラーです。 エラーを特定できません」
と表示されてしまいます。
前にvista+オフィス２００３の時は
上記のコードで問題なく動作しました。
２００７でも動く方法を教えてください。ご回答よろしくお願いします。
いつもありがとうございます。
今度は下記内容で悩んでいます。
どなたか、助けて下さい。
（したい事）
オプションボタン1を押す
セルＪ58に○をいっぱいにオートシェイプで描く
同時にセルJ62のオートシェイプがあれば消す
オプションボタン2を押す
セルＪ62に○をいっぱいにオートシェイプで描く
同時にセルJ58のオートシェイプがあれば消す
これと同じ作業ができるシートを10枚作りたいのですが・・・
各シートはリンクせず、シート内にそれぞれ２つのオプションボタンで対応したいのです。
とりあえず、下記コードを作ったのですが、他のPCですとセルからづれてしまうので
セル内に収まるような最大の○を付したいので、どなたかご教授お願い致します。
Sub (1)オプション1_Click()
ActiveSheet.Unprotect
ActiveSheet.Shapes.AddShape(msoShapeOval, 185, 628, 45.5, 14.5).Select
Selection.ShapeRange.Line.Weight = 1
Selection.ShapeRange.Fill.Visible = msoFalse
With ActiveSheet
For Each ob In .DrawingObjects
If Not Intersect(ob.TopLeftCell, .Range("J62")) Is Nothing Then
ob.Delete
End If
Next
End With
Range("J58").Select
ActiveSheet.Protect
End Sub
