マンガでよめる痔のこと・薬のこと

エクセル(バージョン2000)で企画書を作っているのですが、画像を挿入して、サイズを縦横比を変えずに(シフトを押しながら斜めをドラッグで)調節して保存しました。が、別のパソコンで開くと画像の縦横比が狂ってしまってます・・・色々なパソコン環境で見る物ですので困っているのですが・・どなたかお分かりになる方、お願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

あまり詳しくないのですが、


図を右クリック→[図の書式設定]→[サイズ]の
「縦横比を固定する」と「元のサイズを基準にする」
のあたりが怪しいのでは?
    • good
    • 1

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル上に貼り付けた画像が、横長になる。

エクセルに画像を貼り付けてプリントアウトすると、画像だけが横長になってしまいます。作業中のエクセル画面上では正しいサイズで添付されてます。画像もデジカメで撮影した普通の画像です。
pcはvista、エクセルは2003です。

どうぞ、宜しくお願い致します。

Aベストアンサー

osnkikさん 今日は!
>画像だけが横長になってしまいます。作業中のエクセル画面上では正
>しいサイズで添付されてます。
印刷プレビューで見ても横長ですか?
●[XL2002] 異なる環境で印刷範囲やセルの幅や高さが変わる場合の対策↓
http://support.microsoft.com/default.aspx?scid=kb;ja;400271&Product=xlw2kINT
概要:異なる複数の Microsoft Windows (以下 Windows) 環境で      Excel の表を共有する場合に起こりうる、印刷範囲やセルの幅、   高さが変わってしまう現象について、説明しています。
対策 1. ページレイアウトの機能で自動的に拡大縮小させる
対策 2. 余裕を持たせてページ区切りをしたり、セルの幅/高さを設定    する
対策 3. それぞれの環境用に最適化したテンプレートを作成する
結論:画面表示と印刷結果が異なる場合に類似の現象として、画面上に   表示されるワークシートのイメージと印刷結果またはプレビュー   の表示が異なるという問題が起こることがあります。
   このため Excel はプレビューの機能を用意しています。印刷を   するときの最終的な確認や調整はプレビュー機能で実行してくだ   さい。
との事で応急処置として印刷プレビューで見て、画像が横長でしたらシート上の画像サイズを予めその分最初から縮小して置くしかない様ですね。
VistaでWindows2003の組み合わせも相性が良く無いかも知れません。
■デスクトップの設定画面(Vista)↓
http://www.aibsc.jp/nsj/03_07_win/070501_01/1-2-3.html
内容:Vistaでは[画面のプロパティ]ではなく、[コントロールパネル]   内の[デスクトップのカスタマイズ]の中の[個人設定]というメニ   ューになっています。
解像度の設定がマニュアルの最適値に(例:1.280X800)モニター15.4型です、またVistaではまず[個人設定]画面からリンク[画面の設定]を左クリックして画面を表示させます。
[解像度]、[色]、[詳細設定]とありますが「詳細設定」でDPIを「通常のサイズ96OPI」を再確認しましょう。DPIの選択で変るかもしれないので▼マークで選択して見て決めて下さい。
▲おれんちのアルバム↓
http://www.vector.co.jp/soft/win95/art/se376531.html?site=n
▲デジらくエクセル↓
http://www.vector.co.jp/soft/winnt/art/se424341.html?site=n
OSがVistaの場合は動作出来無いかも知れません。
参考に印刷のズレも不明です。

osnkikさん 今日は!
>画像だけが横長になってしまいます。作業中のエクセル画面上では正
>しいサイズで添付されてます。
印刷プレビューで見ても横長ですか?
●[XL2002] 異なる環境で印刷範囲やセルの幅や高さが変わる場合の対策↓
http://support.microsoft.com/default.aspx?scid=kb;ja;400271&Product=xlw2kINT
概要:異なる複数の Microsoft Windows (以下 Windows) 環境で      Excel の表を共有する場合に起こりうる、印刷範囲やセルの幅、   高さが変わってしまう現象について、説明してい...続きを読む

Qエクセル(2013)VBA-図の縦横比を変えずにセルにおさまる最大限の大きさにする

エクセル(2013)VBAを使って、画像を挿入し、挿入した画像を図として貼付けしているのですが、
その後、貼り付けた図をセルにおさまる最大限の大きさ(縦横比は変更しない)
に変更したいのですが、どのようなコードを書けば良いのかご教授頂きたいです。

今出来ているマクロは、ネットからコピーしてきたものの為、
私には知識が足りずカスタマイズができませんでした。。。
似たような質問があったのですが、そちらも私には理解できませんでした。。

以下が現在のコードです。”【質問】”と記載した箇所に入れるコードを教えて頂きたいです。

※画像を全て貼り付けてから、全ての画像のサイズをセルに合わせる。という方法は
 避けたく、都度取り込んだ画像のサイズを変えるようにしたいです。

何卒よろしくお願いいたします!!
------------------------------------------------------------------------------

Sub 画像とファイル名書き出し()

Dim fName As Variant
Dim i As Long
Dim Pict As picture
Dim mySp As Shape, myRng As Range
Dim myHgt As Double, myWdt As Double

'ファイル選択
fName = Application.GetOpenFilename("画像 ,*.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.emz; *.wmz; *.pcz; *.tif; *.tiff; *.eps; *.pct; *.pict; *.wpg", MultiSelect:=True)

If IsArray(fName) Then
Application.ScreenUpdating = False
'配列に格納されたファイル名をソート
BubbleSort fName, True
For i = 1 To UBound(fName)
Set Pict = ActiveSheet.Pictures.Insert(fName(i))


With Pict
.TopLeftCell = ActiveCell
.ShapeRange.LockAspectRatio = msoTrue
.Cut
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False


' <<<【質問】ここでセルにおさまる最大限の大きさ(縦横比は固定)に変更したいです>>>
'
'
'
'
'

ActiveCell.offset(0, 1) = fName(i) '保存場所&ファイル名
ActiveCell.offset(0, 2) = Dir(fName(i)) 'ファイル名
End With
ActiveCell.offset(1, 0).Activate
Application.StatusBar = "処理中:" & i & "/" & UBound(fName) & "枚目"

Next i
End If
With Application
.StatusBar = False
.ScreenUpdating = True
End With

Set Pict = Nothing
If i < 1 Then
MsgBox "0枚の画像を挿入しました", vbInformation

Else
MsgBox i - 1 & "枚の画像を挿入しました", vbInformation
End If

End Sub
'値の入替え
Public Sub Swap(ByRef Dat1 As Variant, ByRef Dat2 As Variant)

Dim varBuf As Variant
varBuf = Dat1
Dat1 = Dat2
Dat2 = varBuf

End Sub

'配列のバブルソート
Public Sub BubbleSort(ByRef aryDat As Variant, _
Optional ByVal SortAsc As Boolean = True)

Dim i As Long
Dim j As Long
For i = LBound(aryDat) To UBound(aryDat) - 1
For j = LBound(aryDat) To LBound(aryDat) + UBound(aryDat) - i - 1
If aryDat(IIf(SortAsc, j, j + 1)) > aryDat(IIf(SortAsc, j + 1, j)) Then
Call Swap(aryDat(j), aryDat(j + 1))
End If
Next j
Next i

End Sub

エクセル(2013)VBAを使って、画像を挿入し、挿入した画像を図として貼付けしているのですが、
その後、貼り付けた図をセルにおさまる最大限の大きさ(縦横比は変更しない)
に変更したいのですが、どのようなコードを書けば良いのかご教授頂きたいです。

今出来ているマクロは、ネットからコピーしてきたものの為、
私には知識が足りずカスタマイズができませんでした。。。
似たような質問があったのですが、そちらも私には理解できませんでした。。

以下が現在のコードです。”【質問】”と記載した箇...続きを読む

Aベストアンサー

こんにちは、以下のコードをコメント部にいれてみて下さい。

'ここから
'この行はとりあえずコメントにしました
'''''ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False

'変数設定はループの外(上の変数設定の部分)でして下さい
dim wWIDTH as long
dim wHIGHT as long
dim wRITU as double
dim MyShape as shape
dim oPIC as stdole.IPictureDisp

cells(i,1).select '<--- 画像を貼り付けるセルを選択しています

Set oPIC=LoadPicture(fName(i))

'指定したセルの高さに合わせる場合(今回は高さに合わせました)
wHIGHT=Selection.height 'セルの高さ
wRITU =wHIGHT/oPIC.height '比率=セルの高さ / 実画像の高さ
wWIDTH=int(oPIC.width*wRITU)

'指定したセルの横幅に合わせる場合
'' wWIDTH=Selection.width 'セルの幅
'' wRITU =wWIDTH/opic.width '比率=セルの幅 / 実画像の幅
'' wHIGHT=int(oPIC.height*wRITU)

Set MyShape=ActiveSheet.Shapes.AddPicture(Filename:=fName(i),LinkToFile:=False,SaveWithDocument:=True, _
Left:=Selection.Left,Top:=Selection.Top,Width:=wWIDTH,Height:=wHIGHT)
'ここまで

では頑張ってください

こんにちは、以下のコードをコメント部にいれてみて下さい。

'ここから
'この行はとりあえずコメントにしました
'''''ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False

'変数設定はループの外(上の変数設定の部分)でして下さい
dim wWIDTH as long
dim wHIGHT as long
dim wRITU as double
dim MyShape as shape
dim oPIC as stdole.IPictureDisp

cells(i,1).select '<--- 画像を貼り付けるセルを選択しています

Set oPIC=LoadPicture(fName(i))

'指定したセ...続きを読む

Qオブジェクトのサイズが勝手に変わる

excel 2013を使用しています。

下記と同様のことが、発生し作りたいものが作れません。

https://support.microsoft.com/kb/2510274/ja?wa=wsignin1.0

ワードアートと図形の四角形(ワードアートを囲む)を、組み合わせて作りたいけど、
サイズを指定しても、勝手にサイズが変わると、作れないです。

皆さんは、どうしてますか?
1、頑張って、サイズ変更が小さくなるサイズを作る。
2、他のソフト(PowerPointやWord)で作る。

Aベストアンサー

Excelって、関数計算に重点を置く設計になっているので、表示の問題は二の次になっています。セル中に収まっている文字でも、プレビューや実際に印刷すると、見えない文字が出てくるってこと、結構ありますよね。なので、どうしてもサイズを変えないことを優先するのであれば、他のソフトを使うしかないと思います。どうしてもExcelをと言うことであれば、ズームスライダーを固定して図形を作成(80%なら、80%にした状態で4cm四方の四角を作成し、80%を維持)するしかないと思います。私が作るドキュメントでは四角の中に書いた文字がはみ出なければいいようなドキュメントしか作成しないので、今まで正直気になりませんでした。

Qエクセルで、セルのサイズに合わせて画像を挿入するには?

現在、データ等を記載した商品一覧表を作成しているおります。表のセルの中に商品画像を挿入しているのですが、画像を挿入してから、毎回その度に画像をセルのサイズに手動で変更するのが手間だなーと思っています。
指定したセルのサイズに、自動で画像をサイズ変換してくれる機能はないのでしょうか。
御存じの方おられましたら、よろしくお願いします。

Aベストアンサー

機能としては難しいですが、VBAを使えば結構簡単に出来るはずです。
1.イメージを置きたいセルの幅、高さの取得。
2.イメージの表示サイズの取得
3.後は比率などでのイメージの修正。
但し、画像の挿入でしたものをあとから変更するのではなく、貼り付けマクロを作成し先ほどのロジックをVBA化すれば可能。

QExcelの行列幅をcmで表示したい

Excelの列幅や、行高は、文字数(ピクセル)表示になっていますよね。それを、cm(mmでもOK)単位の表示ができないのでしょうか? 実は公的な書式を作成するため、寸法どおりにしないといけないので、いつも印刷してからものさしで計っては、・・の繰り返しなんです。どなたかアドバイスをお願いします。ジャストシステムの三四郎を以前のパソコンで使っていたときには、それができたんですよ・・

Aベストアンサー

エクセルのバージョンは?
2007ならルーラーの cm,mm の指定は可能ですが・・・
http://www.eurus.dti.ne.jp/~yoneyama/office2007/excel2007-02.html#page_layout

でなければ、
ものさしマクロ
http://hp.vector.co.jp/authors/VA016119/sizemm.html

Qエクセルへ画像挿入、元サイズが同じなのに大きさ違う

デジカメの写真の大きさが大きすぎるので、フォトショップで640×480ピクセルくらいに小さくしてから、エクセルに貼り付けています。

でも、貼り付けるとものすごく小さくなる場合があります。

通常はエクセルのプロパティでみると原型サイズ縦16.97cm 横22.58cmなのですが、

小さいとき、縦3.48cm 横4.65cmとなっています。

今、気付いたのですが、カメラが違うようで、640×480に縮小する前は大きい方は4000×3000、小さい方は2592×1944でした。

でも、同じ640×480にしたのだから、エクセルに挿入したら同じサイズになるのではないですか?

小さく挿入された方はエクセル上でサイズを大きくすると画像が粗くなるのでしょうか?

エクセル上では、6cm×8cmくらいにするのですが、見た目ではよくわかりません。

粗くならないなら、割り切ってエクセル上で拡大して使うのですが・・・

詳しい方、ご教授ください。

Aベストアンサー

同じ解像度72dpiでもサイズが異なるとの事で原因は分かりかねますが、試しに解像度変換君というフリーソフトで解像度を変更して遊んでみました。当方愛用のVixでJPEG保存すると、解像度情報は保存されない様ですが、エクセルに取り込んだ時は96dpiと同じ扱いでした。200dpiに変更して取り込んでみると、シート上で小さく表示されました。エクセルも結構まともなのですね。
さて、回答ではありませんが、エクセルにクリップボード経由で画像を貼り付けて巨大化するのを防止するには、貼り付けた後に、ワークシート上でサイズを調整し、Ctrl+xで一旦切り取り、形式を指定して貼り付けでJPEGを指定すると、縮小した画素数かつ、JPEG形式で貼り付けられますので、ファイルサイズの巨大化を防止できます。(画像は当然眠くなります)。ご参考まで。

QVBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)

エクセル貼り付けた画像をセルにあった大きさにしたいのですが、
その際、縦と横の比率を変更したくありません。

縦と横の比率を変更せず、セルにおさまる最大の大きさで画像のサイズを
変えることは可能でしょうか。

-----------------------------------------------------------------------------
縦と横の比率が関係なく、セルいっぱいのサイズに画像の大きさを変更するVBAは
下記URLから見つけられたのですが、、、、、
http://q.hatena.ne.jp/1240648036

Aベストアンサー

No.1です。

>画像が置いてあるセル上で処理を行う

画像のどこを基準にするか?によってコードは変わってきますが、
画像の左上端のセルにその画像を縦・もしくは横いっぱいに配置するコードにしてみました。

Sub Sample2()
Dim mySp As Shape, myRng As Range
Dim myHgt As Double, myWdt As Double

For Each mySp In ActiveSheet.Shapes
With mySp
Set myRng = .TopLeftCell
myHgt = myRng.Height
myWdt = myRng.Width
.Top = myRng.Top
.Left = myRng.Left
.Height = myHgt
If .Width > myWdt Then
.Width = myWdt
End If
End With
Next mySp
End Sub

こんな感じではどうでしょうか?m(_ _)m

No.1です。

>画像が置いてあるセル上で処理を行う

画像のどこを基準にするか?によってコードは変わってきますが、
画像の左上端のセルにその画像を縦・もしくは横いっぱいに配置するコードにしてみました。

Sub Sample2()
Dim mySp As Shape, myRng As Range
Dim myHgt As Double, myWdt As Double

For Each mySp In ActiveSheet.Shapes
With mySp
Set myRng = .TopLeftCell
myHgt = myRng.Height
myWdt = myRng.Width
.Top = myRn...続きを読む

Qエクセルで画像を自動的に挿入

エクセルは一般人程度の知識しかありません。
わたしは、デジカメの画像をエクセルに貼り付けて印刷しています。
(A4で、サイズ変更をして)
今までは、画像を貼り付けて、サイズ変更して、1画像ずつ配置していました。
しかし画像数が多いと配置の作業が大変です。画像を選択するだけでサイズ変更して自動的に配置してくれる機能なんてないですかね?
よろしくお願いします。

Aベストアンサー

検索すればそこかしこに情報があると思います。
我田引水ですが、
http://okwave.jp/qa3864319.html
更に、上記記事中のリンク先では、マクロの作り方も含めて説明してくれていますので、ご覧下さい。

QMac Excel 2004で配置した画像の比率が変わってしまう

Mac Excel 2004で画像を配置し、
その後、そのExcelファイルを再度開いてみると画像の比率が変わってしまうことがあります。

100:74とかに変倍されてしまっているのですが、
この現象は何が原因で起こるのでしょうか。
この現象を防ぐ方法ってあるのでしょうか。
この現象が起こってしまった場合に、元に戻す方法はありますでしょうか。

ご存じの方、回答をよろしくお願いいたします

Aベストアンサー

セルにデータは入力されてますか?
ちょっと試した限りでは、一つでもセルに何か入っていれば、この現象は起きないようですが。

Qエクセルの写真挿入時に「図の挿入」から挿入しています。 その際、元の写

エクセルの写真挿入時に「図の挿入」から挿入しています。 その際、元の写真データのピクセル数に関係なく自分が指定した大きさに設定し自動縮小や拡大して挿入する方法を教えてくだ

Aベストアンサー

VBAでなければ無理です

Sub 写真挿入()

Application.Dialogs.Item(xlDialogInsertPicture).Show

With Selection
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 250
.ShapeRange.Width = 325
End With
End Sub


選択したセルの左上を基点としてファイル選択ダイアログで選んだ
写真が張り付きます
数字部分を任意の値に設定すれば好きな大きさになります


VBAは VBEを起動して記載します

このスペースでは説明が難しいので
どこかのサイトを検索して探してください

マクロの使い方 みたいな検索文字でイケると思います


人気Q&Aランキング