问个稍微有点难度的问题：如何让图片适应单元格的宽度？

天际孤帆

问个稍微有点难度的问题：如何让图片适应单元格的宽度？

怎样让多个图片根据背景单元格的列宽，自主调整图片的宽度、使得图片刚刚好完全填满背景单元格的列宽？

如下图：






行高可以自动调整，最终实现目的，如下图：
（不改变图片的原有比例，按原有的顺序，整整齐齐，排列好）

taller

多个图片填充，你需要确定的是如何分配空间？例如3个图片，每个图片占1/3宽度？还是有其他逻辑，剩下的就是计算图片缩放比例而已

天际孤帆

taller 发表于 2024-11-14 02:11
多个图片填充，你需要确定的是如何分配空间？例如3个图片，每个图片占1/3宽度？还是有其他逻辑，剩下的就是 ...

按图片原有比例缩放：

第一步，先实现多图同样的高度；
第二步，多图同时按原有比例缩放，然后多图的宽度加起来，刚好等于背景单元格的列宽；
第三步，多个图片按顺序，整齐排列好，排列好之后，刚好等于背景单元格的列宽。

天际孤帆

taller 发表于 2024-11-14 02:11
多个图片填充，你需要确定的是如何分配空间？例如3个图片，每个图片占1/3宽度？还是有其他逻辑，剩下的就是 ...

行高可以自动调整，最终实现目的，如下图：

taller

天际孤帆 发表于 2024-11-14 12:35
按图片原有比例缩放：

第一步，先实现多图同样的高度；

你这个规则是相互制约（矛盾）的

如果按比例缩放，并且多图同高，那么有了这两个条件限制，图的宽度就是固定的了，不可能再按照列宽进行调整

天际孤帆

taller 发表于 2024-11-14 12:44
你这个规则是相互制约（矛盾）的

如果按比例缩放，并且多图同高，那么有了这两个条件限制，图的宽度就 ...

不矛盾啊版主，多图同高，图的宽度也会随着原有比例改变的。正常来说，图的高度锁定了，能改变的，就只有宽度了。

但咱们可以随时调整图的高度，来改变图的宽度（因为图的比例锁定了），最终让多图适应背景单元格的宽度。

行高可以调整，行高可以调整，行高可以调整

大灰狼1976

设统一高度为x，则统一后图1的宽=x*宽高比1，图2的宽=x*宽高比2，图3的宽=x*宽高比3
总宽=统一高度后图1的宽+图2的宽+图3的宽
图1的宽/总宽=宽度占比，乘以单元格宽就是需要设置的宽度，再按比例算出高度，其他图片相同

taller

taller

1. Sub demo()
   
2.     Dim c As Range, Shp As Shape, wAll, r, iLeft
   
3.     Set c = [B2]
   
4.     For Each Shp In Sheet1.Shapes
   
5.         Shp.LockAspectRatio = msoCTrue
   
6.         Shp.Height = 100
   
7.         wAll = wAll + Shp.Width
   
8.     Next
   
9.     r = c.Width / (wAll + 2)
   
10.     iLeft = c.Left
    
11.     For Each Shp In Sheet1.Shapes
    
12.         Shp.LockAspectRatio = msoCTrue
    
13.         Shp.Height = 100 * r
    
14.         Shp.Top = c.Top
    
15.         Shp.Left = iLeft
    
16.         iLeft = iLeft + Shp.Width + 1
    
17.     Next
    
18.     c.RowHeight = Sheet1.Shapes(1).Height
    
19. End Sub

复制代码

天际孤帆

taller 发表于 2024-11-14 13:51

taller哥思路确实可行，不过是所有图片都集中到一个单元格中去了，只需要稍微修改成目标单元格中的图片即可。牛